4.1.10 (c+d x)^m (a+b sin)^n.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    488062,      10715]
NotebookOptionsPosition[    474604,      10370]
NotebookOutlinePosition[    476319,      10424]
CellTagsIndexPosition[    476276,      10421]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 StyleBox[
  RowBox[{Cell[TextData[StyleBox["Rules for integrands of the form",
    FontFamily->"Arial",
    FontSize->16]], "None"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"]}],
  FontSize->16]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, {3.5233155055329347`*^9, 3.523315506402936*^9}, {
   3.523318726949605*^9, 3.5233187276796064`*^9}, {3.523920400879534*^9, 
   3.5239204094439487`*^9}, 3.52392096260852*^9, 3.523921038171853*^9, 
   3.5340477459008017`*^9, 3.5340515540554085`*^9, {3.536542511100503*^9, 
   3.53654251626051*^9}, {3.536775961244521*^9, 3.5367759616145215`*^9}, {
   3.544373142375139*^9, 3.5443731599851637`*^9}, {3.5721095751430073`*^9, 
   3.5721095751430073`*^9}, {3.57578648209792*^9, 3.575786503859958*^9}, 
   3.575786540270422*^9, {3.5757866379421935`*^9, 3.5757866609522343`*^9}, 
   3.5758478960540276`*^9, 3.57584912634415*^9, 3.575849218264279*^9, {
   3.575849275424359*^9, 3.57584927603436*^9}, {3.5758493222644243`*^9, 
   3.5758493249844284`*^9}, 3.5758494042945395`*^9, 3.6735684665235987`*^9, 
   3.6740561511462793`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, 3.5416917928353863`*^9, 3.5416918654707212`*^9, {
   3.5417873058670864`*^9, 3.541787319807106*^9}, {3.541789540400215*^9, 
   3.5417895530802326`*^9}, 3.541789616030321*^9, {3.5417897122304554`*^9, 
   3.5417897124504557`*^9}, {3.5417925317651196`*^9, 
   3.5417925320051203`*^9}, {3.5417934393063903`*^9, 3.5417934399563913`*^9}, 
   3.56053716793855*^9, 3.5605430857613792`*^9, {3.5605453972046156`*^9, 
   3.5605454021846223`*^9}, {3.5606182150525985`*^9, 3.560618219852605*^9}, {
   3.5606182689326735`*^9, 3.560618269682675*^9}, {3.563574880419276*^9, 
   3.563574880869276*^9}, 3.5906378878042774`*^9, {3.6735672127378864`*^9, 
   3.6735672130019016`*^9}, {3.673926051730245*^9, 3.6739260531002474`*^9}, 
   3.673928176102466*^9, 3.673928984947709*^9, 3.674055933577895*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", ">", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, 3.5416917928353863`*^9, 3.5416918654707212`*^9, {
   3.5417873058670864`*^9, 3.541787319807106*^9}, {3.541789540400215*^9, 
   3.5417895530802326`*^9}, 3.541789616030321*^9, {3.5417897122304554`*^9, 
   3.5417897124504557`*^9}, {3.5417925317651196`*^9, 
   3.5417925320051203`*^9}, {3.5417934393063903`*^9, 3.5417934399563913`*^9}, 
   3.56053716793855*^9, 3.5605430857613792`*^9, {3.5605453972046156`*^9, 
   3.5605454021846223`*^9}, {3.5606182150525985`*^9, 3.560618219852605*^9}, {
   3.5606182689326735`*^9, 3.560618269682675*^9}, {3.563574880419276*^9, 
   3.563574880869276*^9}, 3.5906378878042774`*^9, {3.6735672127378864`*^9, 
   3.6735672130019016`*^9}, {3.673926051730245*^9, 3.6739260531002474`*^9}, 
   3.673928176102466*^9, 3.673928984947709*^9, 3.674055955343934*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
     RowBox[{"Sin", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415613109389257`*^9, 
   3.5415613113913264`*^9}, {3.5416243984807787`*^9, 
   3.5416244195599437`*^9}, {3.5416244713301*^9, 3.5416244737561426`*^9}, 
   3.541626365649132*^9, {3.541628897885443*^9, 3.5416288994754457`*^9}, 
   3.5416290696456833`*^9, 3.541793672066716*^9, 3.541802112599786*^9, 
   3.541802982861004*^9, {3.541895598092306*^9, 3.541895598422307*^9}, 
   3.553305199506484*^9, {3.5533052412965426`*^9, 3.5533052433165455`*^9}, 
   3.5533078266801624`*^9, 3.5605383991202736`*^9, {3.560545554294835*^9, 
   3.5605455545648355`*^9}, 3.560546360235964*^9, 3.5605463911460066`*^9, 
   3.590637888594279*^9, {3.6735672162850895`*^9, 3.673567216573106*^9}, 
   3.673926085297293*^9, 3.6740559563111353`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
     RowBox[{"Sin", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", ">", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, {3.541555421591781*^9, 
   3.5415554284869933`*^9}, {3.541555475521076*^9, 3.5415554813086863`*^9}, {
   3.54162554215584*^9, 3.5416255424808583`*^9}, {3.54162579640209*^9, 
   3.54162579780217*^9}, {3.5416258692479687`*^9, 3.541625878751336*^9}, {
   3.541627818203932*^9, 3.541627821153936*^9}, {3.541627907684057*^9, 
   3.541627913164065*^9}, {3.541627956094125*^9, 3.5416279872241683`*^9}, {
   3.541628077694295*^9, 3.5416281102343407`*^9}, 3.5417941764874225`*^9, {
   3.5417942380475082`*^9, 3.5417942467575207`*^9}, {3.5417943330476418`*^9, 
   3.5417943330476418`*^9}, {3.541803434011636*^9, 3.541803434251636*^9}, {
   3.541810224871143*^9, 3.5418102543011837`*^9}, {3.541810875082053*^9, 
   3.541810875082053*^9}, {3.541811231122552*^9, 3.541811231462552*^9}, {
   3.54189560795232*^9, 3.5418956081823206`*^9}, {3.5533052523765583`*^9, 
   3.553305252776559*^9}, 3.5533078294501657`*^9, {3.553309604572651*^9, 
   3.553309604742652*^9}, {3.5546827391627474`*^9, 3.554682739312748*^9}, {
   3.5546870349591627`*^9, 3.5546870482091813`*^9}, {3.560187229399564*^9, 
   3.5601872295867643`*^9}, {3.5601882896086254`*^9, 3.5601882897802258`*^9}, 
   3.5605384027202787`*^9, {3.5605459159253416`*^9, 3.560545949185388*^9}, 
   3.56054636484597*^9, 3.560546598396297*^9, {3.560549160179884*^9, 
   3.5605491603998837`*^9}, 3.5906378891742797`*^9, {3.673567217549162*^9, 
   3.6735672177881756`*^9}, 3.673926085317293*^9, 3.674055957044337*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: CRC 392, A&S 4.3.119", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 
   3.497811532897608*^9}],

Cell["Reference: CRC 396, A&S 4.3.123", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 
   3.497811532897608*^9, 3.4979832743894076`*^9}],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 
   3.497810452426095*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"Sin", "[", 
    RowBox[{"e", "+", 
     RowBox[{"f", " ", "x"}]}], "]"}], "\[Equal]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "f"]}], 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"Cos", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 
   3.497809962345409*^9, 3.4978100933655925`*^9, 3.497810195205735*^9, 
   3.497811560037646*^9, 3.497811810187996*^9, {3.5418102932112384`*^9, 
   3.5418103044412537`*^9}, {3.560545966125412*^9, 3.5605459747054243`*^9}, {
   3.5605489616496058`*^9, 3.5605489649096103`*^9}, {3.673926085347293*^9, 
   3.673926085357293*^9}, {3.673926804532322*^9, 3.673926804532322*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", ">", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978119614426117`*^9, 
   3.4978119879026484`*^9}, {3.54181087288205*^9, 3.54181087288205*^9}, {
   3.5546870575891943`*^9, 3.5546870575891943`*^9}, {3.5605459529753933`*^9, 
   3.560545953875395*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
    RowBox[{"Sin", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"c", "+", 
            RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}], "f"]}]}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{"d", " ", "m"}], "f"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], 
      RowBox[{"m", "-", "1"}]], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, {
   3.4978114755275273`*^9, 3.4978114885575457`*^9}, {3.56054598616544*^9, 
   3.560546006575468*^9}, {3.560546601776302*^9, 3.5605466057063074`*^9}, {
   3.5605466472663655`*^9, 3.560546647766366*^9}, {3.6739260853672934`*^9, 
   3.6739260853872933`*^9}, {3.6739268070323257`*^9, 3.6739268075723267`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"sin", "[", 
      RowBox[{"e_.", "+", 
       RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}]}], "*", 
     RowBox[{
      RowBox[{"Cos", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", "*", "x"}]}], "]"}], "/", "f"}]}], " ", "+", " ", "\n", 
    "  ", 
    RowBox[{"d", "*", 
     RowBox[{"m", "/", "f"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "1"}], ")"}]}], "*", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d", ",", "e", ",", "f"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 
   3.497811129647043*^9, 3.497811455437499*^9, {3.5418108290019884`*^9, 
   3.541810837512*^9}, {3.554685046223878*^9, 3.554685059713897*^9}, 
   3.5546863420781927`*^9, 3.554686426938311*^9, 3.5546866181485786`*^9, {
   3.560546037155511*^9, 3.5605460794755707`*^9}, 3.560548770569338*^9, {
   3.560548819679407*^9, 3.56054885803946*^9}, {3.560548989149644*^9, 
   3.560548989449644*^9}, {3.6739261142243347`*^9, 3.673926144095377*^9}, 
   3.6739263955617356`*^9, {3.673926812005333*^9, 3.6739268165353394`*^9}, 
   3.697087109113641*^9, {3.715370088395056*^9, 3.7153700902321606`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
     RowBox[{"Sin", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "<", 
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, {3.541555421591781*^9, 
   3.5415554284869933`*^9}, {3.541555475521076*^9, 3.541555531447174*^9}, {
   3.5416256658935328`*^9, 3.541625666122286*^9}, {3.5416257625061736`*^9, 
   3.5416257625061736`*^9}, {3.541626016048726*^9, 3.5416260258896933`*^9}, 
   3.5417941774174232`*^9, {3.5417946432380757`*^9, 3.541794658938098*^9}, {
   3.5418034359316382`*^9, 3.541803436111638*^9}, 3.541810200781109*^9, 
   3.541810482861504*^9, {3.54181073012185*^9, 3.5418107354118576`*^9}, {
   3.541811241362566*^9, 3.5418112420925665`*^9}, {3.5418956097223225`*^9, 
   3.541895609912323*^9}, {3.5533052545965614`*^9, 3.553305254826562*^9}, 
   3.553307830110167*^9, {3.5533096060526533`*^9, 3.5533096062226534`*^9}, {
   3.5546827405027494`*^9, 3.55468274073275*^9}, {3.554686950229044*^9, 
   3.5546869868490953`*^9}, {3.5601872308971663`*^9, 
   3.5601872310531664`*^9}, {3.5601882910906286`*^9, 3.5601882912466288`*^9}, 
   3.5605384034202795`*^9, {3.560546169825697*^9, 3.5605461832257156`*^9}, 
   3.560546365455971*^9, 3.5605466120963163`*^9, 3.5605491851199183`*^9, {
   3.5605492457300034`*^9, 3.5605492459300036`*^9}, 3.590637894184286*^9, {
   3.6735672258826385`*^9, 3.67356722608565*^9}, {3.6737510291860123`*^9, 
   3.673751030986115*^9}, 3.6739260854072933`*^9, 3.674055957715138*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: CRC 405, A&S 4.3.120", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 
   3.497810452426095*^9, 3.4978120457827296`*^9}],

Cell["Reference: CRC 406, A&S 4.3.124", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 
   3.497810452426095*^9, 3.4978120457827296`*^9, 3.497983283827424*^9, {
   3.5605462207957687`*^9, 3.5605462228457713`*^9}}],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 
   3.497809962345409*^9, 3.4978100933655925`*^9, 3.497810195205735*^9, {
   3.497810459466105*^9, 3.497810511846178*^9}, 3.4978120506627364`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "<", 
   RowBox[{"-", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978105556962395`*^9, 
   3.4978105670162554`*^9}, {3.4978121595028887`*^9, 
   3.4978121713129053`*^9}, {3.497812202812949*^9, 3.497812241873004*^9}, {
   3.5418107635318966`*^9, 3.5418107635318966`*^9}, {3.5546869962991085`*^9, 
   3.5546869962991085`*^9}, {3.560546186825721*^9, 3.5605461887457237`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
    RowBox[{"Sin", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], ")"}], 
         RowBox[{"m", "+", "1"}]], " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], 
       RowBox[{"d", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox["f", 
    RowBox[{"d", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], 
      RowBox[{"m", "+", "1"}]], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, 
   3.497810535736212*^9, {3.497812078252775*^9, 3.497812093972797*^9}, {
   3.5605462286757793`*^9, 3.56054623630579*^9}, {3.56054661463632*^9, 
   3.560546617856324*^9}, {3.5605466551163764`*^9, 3.5605466647863903`*^9}, {
   3.6739260854272933`*^9, 3.673926085437293*^9}, 3.673926826340353*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{"sin", "[", 
      RowBox[{"e_.", "+", 
       RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", "*", "x"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", "\n", "  ", 
    RowBox[{
     RowBox[{"f", "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}]}], "*", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d", ",", "e", ",", "f"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 
   3.497810442686082*^9, 3.49781112699704*^9, 3.497812038232719*^9, {
   3.5418106440117297`*^9, 3.541810697081804*^9}, {3.554685146134018*^9, 
   3.5546851521040263`*^9}, 3.554686438188327*^9, 3.554686635368603*^9, {
   3.560546202475743*^9, 3.56054620758575*^9}, {3.560546239695795*^9, 
   3.5605462760358458`*^9}, 3.560548775469345*^9, 3.5605488237994127`*^9, {
   3.560548866999473*^9, 3.5605488686894755`*^9}, {3.5605490830597754`*^9, 
   3.5605490920897884`*^9}, {3.6739261142543344`*^9, 3.6739261441153774`*^9}, 
   3.6739263955817356`*^9, 3.673926830110358*^9, 3.6970871103527117`*^9, {
   3.7153700944144*^9, 3.7153700969315443`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["3.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415613109389257`*^9, 
   3.5415613113913264`*^9}, {3.5416243984807787`*^9, 
   3.5416244195599437`*^9}, {3.5416244713301*^9, 3.5416244737561426`*^9}, 
   3.541626365649132*^9, {3.541628897885443*^9, 3.5416288994754457`*^9}, 
   3.5416290696456833`*^9, 3.541793672066716*^9, 3.541802112599786*^9, 
   3.5418030023610315`*^9, {3.5533052475865517`*^9, 3.5533052477965517`*^9}, 
   3.5533078274701633`*^9, 3.5605383997302747`*^9, {3.560545556384838*^9, 
   3.5605455566448383`*^9}, 3.5605463622459664`*^9, 3.5605464043460255`*^9, 
   3.560549182919915*^9, 3.590637890414281*^9, {3.6735672197502875`*^9, 
   3.673567220002302*^9}, {3.6737510461649833`*^9, 3.67375104838311*^9}, 
   3.6739260854572935`*^9, 3.6740559583079395`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"d", " ", "e"}], "-", 
        RowBox[{"c", " ", "f"}]}], "\[Equal]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.5192504337891226`*^9, 3.5192504436696877`*^9}, {3.519320736057986*^9, 
   3.5193207456364026`*^9}, {3.5193282921909866`*^9, 
   3.5193283252786446`*^9}, {3.5193283634207115`*^9, 
   3.5193283676639194`*^9}, {3.5193286295571795`*^9, 
   3.5193286611160345`*^9}, {3.519341560355774*^9, 3.5193415713849936`*^9}, {
   3.5193514022902384`*^9, 3.5193514024302387`*^9}, {3.5194037903190413`*^9, 
   3.519403790599057*^9}, 3.51941073361316*^9, 3.5196771044605494`*^9, {
   3.5233155369029784`*^9, 3.5233155369029784`*^9}, 3.5239204146855583`*^9, 
   3.5239297857543354`*^9, 3.5239298325544176`*^9, {3.5295294635000772`*^9, 
   3.5295294742328963`*^9}, 3.541555209727809*^9, 3.5416244786643567`*^9, 
   3.541626372069141*^9, 3.541628908255458*^9, 3.541629070725685*^9, 
   3.5417936884967394`*^9, {3.5533052637165737`*^9, 3.5533052639165745`*^9}, 
   3.553307828150164*^9, 3.5605384003502755`*^9, {3.560545558084841*^9, 
   3.5605455583248405`*^9}, 3.560546362995968*^9, 3.560546405666027*^9, {
   3.5605473866674004`*^9, 3.560547398197417*^9}, 3.5605491933699303`*^9, 
   3.590637891054282*^9, {3.6735672208013477`*^9, 3.67356722101536*^9}, 
   3.673751065323079*^9, 3.6739260854672937`*^9, {3.6739268862465305`*^9, 
   3.6739268862465305`*^9}, 3.67405595886954*^9, 3.697507217926658*^9, 
   3.6975102381464047`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Primitive rule", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"SinIntegral", "[", 
    RowBox[{"\[ImaginaryI]", " ", "z"}], "]"}], "\[Equal]", 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"SinhIntegral", "[", "z", "]"}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 
   3.497809962345409*^9, 3.497811178197111*^9, {3.6740670964221115`*^9, 
   3.674067097492113*^9}, {3.697498247358571*^9, 3.697498247358571*^9}, {
   3.69749844490187*^9, 3.697498450462188*^9}, {3.6974985211152287`*^9, 
   3.6974985211152287`*^9}, {3.6975068626823397`*^9, 3.6975068626823397`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"CosIntegral", "[", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"F", "[", "x", "]"}]}], "]"}]}], "\[Equal]", 
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"CoshIntegral", "[", 
     RowBox[{"F", "[", "x", "]"}], "]"}]}], "\[Equal]", 
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"CoshIntegral", "[", 
     RowBox[{"-", 
      RowBox[{"F", "[", "x", "]"}]}], "]"}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 
   3.497809962345409*^9, 3.497811178197111*^9, {3.6740670964221115`*^9, 
   3.674067097492113*^9}, {3.697498247358571*^9, 3.697498247358571*^9}, {
   3.69749844490187*^9, 3.697498450462188*^9}, {3.6974985211152287`*^9, 
   3.6974985211152287`*^9}, {3.6974992322519035`*^9, 
   3.6974992322519035`*^9}, {3.697500366393773*^9, 3.697500366393773*^9}, {
   3.6975014434063745`*^9, 3.6975014434063745`*^9}, {3.697506929040135*^9, 
   3.697506929040135*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"d", " ", "e"}], "-", 
    RowBox[{"c", " ", "f"}]}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978119614426117`*^9, 
   3.4978119879026484`*^9}, {3.54181087288205*^9, 3.54181087288205*^9}, {
   3.5546870575891943`*^9, 3.5546870575891943`*^9}, {3.5605459529753933`*^9, 
   3.560545953875395*^9}, {3.560547364057369*^9, 3.560547364057369*^9}, {
   3.5605474107974343`*^9, 3.5605474116274357`*^9}, {3.6739269017665524`*^9, 
   3.6739269017665524`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox[
    RowBox[{"Sin", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], 
    RowBox[{"c", "+", 
     RowBox[{"d", " ", "x"}]}]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{" ", 
       RowBox[{"SinIntegral", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], "d"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.497810010085476*^9, 
   3.497810026705499*^9}, {3.497811202387145*^9, 3.497811226367179*^9}, {
   3.4978114144974422`*^9, 3.4978114162574444`*^9}, {3.560545563524848*^9, 
   3.5605455688148556`*^9}, 3.56054640745603*^9, 3.56054745087749*^9, 
   3.5605475351476088`*^9, 3.6737995674872*^9, {3.6739260854872932`*^9, 
   3.6739260854972935`*^9}, {3.69750702826381*^9, 3.6975070520251694`*^9}, {
   3.6975071304296536`*^9, 3.697507139020145*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox[
    RowBox[{"Cos", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], 
    RowBox[{"c", "+", 
     RowBox[{"d", " ", "x"}]}]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{" ", 
       RowBox[{"CosIntegral", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], "d"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.497810010085476*^9, 
   3.497810026705499*^9}, {3.497811202387145*^9, 3.497811226367179*^9}, {
   3.4978114144974422`*^9, 3.4978114162574444`*^9}, {3.560545563524848*^9, 
   3.5605455688148556`*^9}, 3.56054640745603*^9, 3.56054745087749*^9, 
   3.5605475351476088`*^9, 3.6737995674872*^9, {3.6739260854872932`*^9, 
   3.6739260854972935`*^9}, {3.697498920582077*^9, 3.6974989259033813`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"sin", "[", 
      RowBox[{"e_.", "+", 
       RowBox[{"f_.", "*", 
        RowBox[{"Complex", "[", 
         RowBox[{"0", ",", "fz_"}], "]"}], "*", "x_"}]}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{"I", "*", 
    RowBox[{
     RowBox[{"SinhIntegral", "[", 
      RowBox[{
       RowBox[{"c", "*", "f", "*", 
        RowBox[{"fz", "/", "d"}]}], "+", 
       RowBox[{"f", "*", "fz", "*", "x"}]}], "]"}], "/", "d"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d", ",", "e", ",", "f", ",", "fz"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"d", "*", "e"}], "-", 
       RowBox[{"c", "*", "f", "*", "fz", "*", "I"}]}], ",", "0"}], 
     "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 
   3.497811159337085*^9, {3.4978114183274474`*^9, 3.4978114203574505`*^9}, {
   3.5605455742448635`*^9, 3.5605455842648773`*^9}, {3.560547624157733*^9, 
   3.560547719017866*^9}, 3.5605477659079313`*^9, 3.673799572663496*^9, {
   3.673926114284335*^9, 3.673926144125377*^9}, 3.673926395591736*^9, 
   3.6739270030276966`*^9, 3.6970871116797876`*^9, {3.6971104816179595`*^9, 
   3.697110487310285*^9}, {3.6974985582703543`*^9, 3.697498564921735*^9}, {
   3.69749860050677*^9, 3.697498660070177*^9}, {3.6974988260346694`*^9, 
   3.69749884911899*^9}, {3.6975083360046086`*^9, 3.697508342553983*^9}, 
   3.697508797686015*^9, 3.70613883409439*^9, 3.715370118661787*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"sin", "[", 
      RowBox[{"e_.", "+", 
       RowBox[{"f_.", "*", "x_"}]}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"SinIntegral", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", "*", "x"}]}], "]"}], "/", "d"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d", ",", "e", ",", "f"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"d", "*", "e"}], "-", 
       RowBox[{"c", "*", "f"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 
   3.497811159337085*^9, {3.4978114183274474`*^9, 3.4978114203574505`*^9}, {
   3.5605455742448635`*^9, 3.5605455842648773`*^9}, {3.560547624157733*^9, 
   3.560547719017866*^9}, 3.5605477659079313`*^9, 3.673799572663496*^9, {
   3.673926114284335*^9, 3.673926144125377*^9}, 3.673926395591736*^9, 
   3.6739270030276966`*^9, 3.6970871116797876`*^9, {3.6971104816179595`*^9, 
   3.697110487310285*^9}, 3.697498540753352*^9, {3.697498582025713*^9, 
   3.6974985857089233`*^9}, 3.70613883410439*^9, 3.715370129326397*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"sin", "[", 
      RowBox[{"e_.", "+", 
       RowBox[{"f_.", "*", 
        RowBox[{"Complex", "[", 
         RowBox[{"0", ",", "fz_"}], "]"}], "*", "x_"}]}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"CoshIntegral", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "c"}], "*", "f", "*", 
       RowBox[{"fz", "/", "d"}]}], "-", 
      RowBox[{"f", "*", "fz", "*", "x"}]}], "]"}], "/", "d"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d", ",", "e", ",", "f", ",", "fz"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"e", "-", 
          RowBox[{"Pi", "/", "2"}]}], ")"}]}], "-", 
       RowBox[{"c", "*", "f", "*", "fz", "*", "I"}]}], ",", "0"}], "]"}], " ",
     "&&", " ", 
    RowBox[{"NegQ", "[", 
     RowBox[{
      RowBox[{"c", "*", "f", "*", 
       RowBox[{"fz", "/", "d"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 
   3.497811159337085*^9, {3.4978114183274474`*^9, 3.4978114203574505`*^9}, {
   3.4979216301270094`*^9, 3.4979216301270094`*^9}, 3.4979829847748995`*^9, {
   3.497983175906435*^9, 3.497983177825238*^9}, {3.5605455870748816`*^9, 
   3.5605455922548885`*^9}, {3.5605476259677353`*^9, 
   3.5605476476277657`*^9}, {3.560547679607811*^9, 3.560547728417879*^9}, 
   3.5605477677879343`*^9, 3.673799581310991*^9, {3.673926114294335*^9, 
   3.673926144135377*^9}, 3.6739263956017356`*^9, 3.6739270035576973`*^9, {
   3.6970882510969586`*^9, 3.6970882628996334`*^9}, 3.697088623611265*^9, {
   3.697110493758654*^9, 3.6971104960757866`*^9}, {3.697499251476003*^9, 
   3.6974993508606877`*^9}, {3.697500382267681*^9, 3.6975003923252563`*^9}, {
   3.6975012558726482`*^9, 3.6975012619799976`*^9}, {3.6975014803334866`*^9, 
   3.6975014888989763`*^9}, {3.6975023689103107`*^9, 
   3.6975023696343517`*^9}, {3.6975063209953566`*^9, 3.697506327784745*^9}, 
   3.697508401312344*^9, {3.697508537312123*^9, 3.6975085399662743`*^9}, {
   3.6975086083461857`*^9, 3.6975086121024003`*^9}, {3.6975088832679105`*^9, 
   3.69750888780717*^9}, 3.697508996424382*^9, 3.70613883411439*^9, {
   3.7153701417191057`*^9, 3.7153701512866526`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"sin", "[", 
      RowBox[{"e_.", "+", 
       RowBox[{"f_.", "*", 
        RowBox[{"Complex", "[", 
         RowBox[{"0", ",", "fz_"}], "]"}], "*", "x_"}]}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"CoshIntegral", "[", 
     RowBox[{
      RowBox[{"c", "*", "f", "*", 
       RowBox[{"fz", "/", "d"}]}], "+", 
      RowBox[{"f", "*", "fz", "*", "x"}]}], "]"}], "/", "d"}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d", ",", "e", ",", "f", ",", "fz"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"e", "-", 
          RowBox[{"Pi", "/", "2"}]}], ")"}]}], "-", 
       RowBox[{"c", "*", "f", "*", "fz", "*", "I"}]}], ",", "0"}], 
     "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 
   3.497811159337085*^9, {3.4978114183274474`*^9, 3.4978114203574505`*^9}, {
   3.4979216301270094`*^9, 3.4979216301270094`*^9}, 3.4979829847748995`*^9, {
   3.497983175906435*^9, 3.497983177825238*^9}, {3.5605455870748816`*^9, 
   3.5605455922548885`*^9}, {3.5605476259677353`*^9, 
   3.5605476476277657`*^9}, {3.560547679607811*^9, 3.560547728417879*^9}, 
   3.5605477677879343`*^9, 3.673799581310991*^9, {3.673926114294335*^9, 
   3.673926144135377*^9}, 3.6739263956017356`*^9, 3.6739270035576973`*^9, {
   3.6970882510969586`*^9, 3.6970882628996334`*^9}, 3.697088623611265*^9, {
   3.697110493758654*^9, 3.6971104960757866`*^9}, {3.697499251476003*^9, 
   3.6974993508606877`*^9}, {3.697500382267681*^9, 3.6975003923252563`*^9}, {
   3.6975012558726482`*^9, 3.6975012619799976`*^9}, {3.6975014803334866`*^9, 
   3.6975014888989763`*^9}, {3.6975023689103107`*^9, 
   3.6975023696343517`*^9}, {3.6975063209953566`*^9, 3.697506327784745*^9}, 
   3.6975083976841364`*^9, {3.6975087410447755`*^9, 3.697508741958828*^9}, 
   3.6975089985055017`*^9, 3.7061388341243896`*^9, 3.7153701419041166`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"sin", "[", 
      RowBox[{"e_.", "+", 
       RowBox[{"f_.", "*", "x_"}]}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"CosIntegral", "[", 
     RowBox[{"e", "-", 
      RowBox[{"Pi", "/", "2"}], "+", 
      RowBox[{"f", "*", "x"}]}], "]"}], "/", "d"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d", ",", "e", ",", "f"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"e", "-", 
          RowBox[{"Pi", "/", "2"}]}], ")"}]}], "-", 
       RowBox[{"c", "*", "f"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.49780993428537*^9, 
   3.497811159337085*^9, {3.4978114183274474`*^9, 3.4978114203574505`*^9}, {
   3.4979216301270094`*^9, 3.4979216301270094`*^9}, 3.4979829847748995`*^9, {
   3.497983175906435*^9, 3.497983177825238*^9}, {3.5605455870748816`*^9, 
   3.5605455922548885`*^9}, {3.5605476259677353`*^9, 
   3.5605476476277657`*^9}, {3.560547679607811*^9, 3.560547728417879*^9}, 
   3.5605477677879343`*^9, 3.673799581310991*^9, {3.673926114294335*^9, 
   3.673926144135377*^9}, 3.6739263956017356`*^9, 3.6739270035576973`*^9, {
   3.6970882510969586`*^9, 3.6970882628996334`*^9}, 3.697088623611265*^9, {
   3.697110493758654*^9, 3.6971104960757866`*^9}, 3.6974992418534527`*^9, 
   3.697499295043495*^9, {3.6975086968382473`*^9, 3.6975086982343273`*^9}, 
   3.697508923369204*^9, 3.70613883413439*^9, {3.7153701598311415`*^9, 
   3.715370160061155*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"d", " ", "e"}], "-", 
        RowBox[{"c", " ", "f"}]}], "\[NotEqual]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, 
   3.541626373489143*^9, 3.5416289100254602`*^9, 3.5416290716356864`*^9, 
   3.5417936896767406`*^9, {3.5533052651765757`*^9, 3.5533052653865767`*^9}, 
   3.553307828830165*^9, 3.560538400940276*^9, {3.5605455940848913`*^9, 
   3.560545594284891*^9}, 3.5605463636259685`*^9, 3.560546415896042*^9, {
   3.5605469716068196`*^9, 3.5605469825168347`*^9}, 3.560549194729932*^9, 
   3.590637891664283*^9, {3.6735672217754035`*^9, 3.673567222005417*^9}, 
   3.6737510663041353`*^9, 3.673926085517294*^9, {3.673926932019595*^9, 
   3.673926932019595*^9}, 3.674055959431141*^9, 3.6975072189497166`*^9, 
   3.69751024278767*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"Sin", "[", 
    RowBox[{"e", "+", 
     RowBox[{"f", " ", "x"}]}], "]"}], "\[Equal]", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", 
      FractionBox[
       RowBox[{
        RowBox[{"d", " ", "e"}], "-", 
        RowBox[{"c", " ", "f"}]}], "d"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      RowBox[{
       FractionBox[
        RowBox[{"c", " ", "f"}], "d"], "+", 
       RowBox[{"f", " ", "x"}]}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"Sin", "[", 
      FractionBox[
       RowBox[{
        RowBox[{"d", " ", "e"}], "-", 
        RowBox[{"c", " ", "f"}]}], "d"], "]"}], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{
       FractionBox[
        RowBox[{"c", " ", "f"}], "d"], "+", 
       RowBox[{"f", " ", "x"}]}], "]"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 
   3.497809962345409*^9, 3.4978100933655925`*^9, {3.560547284487258*^9, 
   3.560547288287263*^9}, {3.5605473232073116`*^9, 3.5605473232073116`*^9}, {
   3.6739260855272937`*^9, 3.6739260855272937`*^9}, {3.673927146373902*^9, 
   3.673927146373902*^9}, {3.673927589080534*^9, 3.6739275929105396`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"d", " ", "e"}], "-", 
    RowBox[{"c", " ", "f"}]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978119614426117`*^9, 
   3.4978119879026484`*^9}, {3.54181087288205*^9, 3.54181087288205*^9}, {
   3.5546870575891943`*^9, 3.5546870575891943`*^9}, {3.5605459529753933`*^9, 
   3.560545953875395*^9}, {3.560547364057369*^9, 3.560547364057369*^9}, {
   3.6739269333795977`*^9, 3.6739269333795977`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     RowBox[{"Sin", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      RowBox[{"Cos", "[", 
       FractionBox[
        RowBox[{
         RowBox[{"d", " ", "e"}], "-", 
         RowBox[{"c", " ", "f"}]}], "d"], "]"}]}]}], 
    RowBox[{"\[Integral]", 
     RowBox[{
      FractionBox[
       RowBox[{"Sin", "[", 
        RowBox[{
         FractionBox[
          RowBox[{"c", " ", "f"}], "d"], "+", 
         RowBox[{"f", " ", "x"}]}], "]"}], 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}]], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "+", 
  RowBox[{
   RowBox[{"Sin", "[", 
    FractionBox[
     RowBox[{
      RowBox[{"d", " ", "e"}], "-", 
      RowBox[{"c", " ", "f"}]}], "d"], "]"}], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"Cos", "[", 
       RowBox[{
        FractionBox[
         RowBox[{"c", " ", "f"}], "d"], "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, 3.497811321977312*^9, {3.4978113726473837`*^9, 
   3.4978113760773883`*^9}, {3.5605456005348997`*^9, 3.560545604634906*^9}, {
   3.560546421186049*^9, 3.560546424006053*^9}, {3.560547154727076*^9, 
   3.56054719331713*^9}, 3.6739260855372934`*^9, {3.6739271592139196`*^9, 
   3.6739271888699617`*^9}, {3.6739272497780485`*^9, 3.673927255068056*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"sin", "[", 
      RowBox[{"e_.", "+", 
       RowBox[{"f_.", "*", "x_"}]}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"d", "*", "e"}], "-", 
         RowBox[{"c", "*", "f"}]}], ")"}], "/", "d"}], "]"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"c", "*", 
           RowBox[{"f", "/", "d"}]}], "+", 
          RowBox[{"f", "*", "x"}]}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], ")"}]}], ",", "x"}], "]"}]}], " ", "+", 
    " ", "\n", "  ", 
    RowBox[{
     RowBox[{"Sin", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"d", "*", "e"}], "-", 
         RowBox[{"c", "*", "f"}]}], ")"}], "/", "d"}], "]"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{
          RowBox[{"c", "*", 
           RowBox[{"f", "/", "d"}]}], "+", 
          RowBox[{"f", "*", "x"}]}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d", ",", "e", ",", "f"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"d", "*", "e"}], "-", 
       RowBox[{"c", "*", "f"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978111332070484`*^9, 
   3.4978112789772525`*^9, {3.5546864128382916`*^9, 3.5546864142982936`*^9}, {
   3.554686583968531*^9, 3.554686587368536*^9}, {3.5605456083049107`*^9, 
   3.5605456145549192`*^9}, {3.560547628407739*^9, 3.560547651647772*^9}, {
   3.5605477959479733`*^9, 3.560547799177978*^9}, 3.5605478612680655`*^9, 
   3.560547949698189*^9, 3.673926144145377*^9, 3.6739263956117353`*^9, 
   3.6739270168367167`*^9, {3.6739272632900677`*^9, 3.673927273728083*^9}, {
   3.6739273047871275`*^9, 3.6739273061971292`*^9}, 3.6970871122968225`*^9, 
   3.7061388496544113`*^9, 3.7153701755670414`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["4.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], 
      SqrtBox[
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}]]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415613109389257`*^9, 
   3.5415613113913264`*^9}, {3.5416243984807787`*^9, 
   3.5416244195599437`*^9}, {3.5416244713301*^9, 3.5416244737561426`*^9}, 
   3.541626365649132*^9, {3.541628897885443*^9, 3.5416288994754457`*^9}, 
   3.5416290696456833`*^9, 3.541793672066716*^9, 3.541802112599786*^9, 
   3.5418030023610315`*^9, {3.5533052475865517`*^9, 3.5533052477965517`*^9}, 
   3.5533078274701633`*^9, 3.5605383997302747`*^9, {3.560545556384838*^9, 
   3.5605455566448383`*^9}, 3.5605463622459664`*^9, 3.5605464043460255`*^9, {
   3.560548169488497*^9, 3.560548169718497*^9}, 3.5605482083885508`*^9, 
   3.560549184209917*^9, 3.590637892284284*^9, {3.67356722277046*^9, 
   3.6735672230394754`*^9}, {3.673751050429227*^9, 3.67375105310038*^9}, 
   3.673926085557294*^9, 3.674055959992742*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], 
      SqrtBox[
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}]]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"d", " ", "e"}], "-", 
        RowBox[{"c", " ", "f"}]}], "\[Equal]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, 
   3.541626373489143*^9, 3.5416289100254602`*^9, 3.5416290716356864`*^9, 
   3.5417936896767406`*^9, {3.5533052651765757`*^9, 3.5533052653865767`*^9}, 
   3.553307828830165*^9, 3.5533090522318783`*^9, {3.5546796662084455`*^9, 
   3.554679671788453*^9}, {3.554680120459081*^9, 3.554680175459158*^9}, {
   3.554680911920189*^9, 3.554680950880244*^9}, {3.554681807341443*^9, 
   3.55468181222145*^9}, {3.554682741952751*^9, 3.5546827422827516`*^9}, {
   3.5601859269152756`*^9, 3.5601859289588795`*^9}, {3.560186673835788*^9, 
   3.560186690902218*^9}, {3.560186751321124*^9, 3.5601868173716397`*^9}, {
   3.560187177061472*^9, 3.560187177357872*^9}, 3.560538402130278*^9, {
   3.5605456448949623`*^9, 3.560545659214982*^9}, 3.5605457283150787`*^9, 
   3.560546364255969*^9, 3.560546427776058*^9, {3.5605481746085033`*^9, 
   3.560548176958507*^9}, 3.5605482173285637`*^9, 3.560549199969939*^9, 
   3.5906378929142847`*^9, {3.673567223882524*^9, 3.673567224096536*^9}, 
   3.6737510716784425`*^9, 3.6739260855672936`*^9, {3.673926902636554*^9, 
   3.673926902636554*^9}, 3.674055960538743*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, {
   3.554680363269421*^9, 3.554680366969426*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"d", " ", "e"}], "-", 
    RowBox[{"c", " ", "f"}]}], "\[Equal]", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{"F", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], 
    SqrtBox[
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}]]], "\[Equal]", 
   RowBox[{
    FractionBox["2", "d"], " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"F", "[", 
       FractionBox[
        RowBox[{"f", " ", 
         SuperscriptBox["x", "2"]}], "d"], "]"}], ",", "x", ",", 
      SqrtBox[
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}]]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     SqrtBox[
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}]]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 
   3.497809962345409*^9, 3.4978100933655925`*^9, {3.5546803873794546`*^9, 
   3.5546805080996237`*^9}, {3.5546805519996853`*^9, 
   3.5546805519996853`*^9}, {3.560186884217757*^9, 3.560186933591844*^9}, {
   3.56018697104751*^9, 3.560186972295512*^9}, {3.5605456723450003`*^9, 
   3.560545699695039*^9}, {3.5605457551651163`*^9, 3.560545772615141*^9}, {
   3.560546435706069*^9, 3.5605464576061*^9}, {3.5605465740262628`*^9, 
   3.5605465740262628`*^9}, {3.5605484050988264`*^9, 
   3.5605484132488375`*^9}, {3.560548575029064*^9, 3.560548578149069*^9}, {
   3.673567606267395*^9, 3.673567606267395*^9}, {3.6739260855872936`*^9, 
   3.6739260855872936`*^9}, {3.673926903446555*^9, 3.673926903446555*^9}, {
   3.6739274126612806`*^9, 3.6739274126612806`*^9}, {3.6739275042184134`*^9, 
   3.6739275042184134`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"d", " ", "e"}], "-", 
    RowBox[{"c", " ", "f"}]}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978119614426117`*^9, 
   3.4978119879026484`*^9}, {3.54181087288205*^9, 3.54181087288205*^9}, {
   3.5546870575891943`*^9, 3.5546870575891943`*^9}, {3.5605459529753933`*^9, 
   3.560545953875395*^9}, {3.560547364057369*^9, 3.560547364057369*^9}, {
   3.5605483664587727`*^9, 3.5605483679987745`*^9}, {3.6739269042065563`*^9, 
   3.6739269042065563`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"Sin", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], 
     SqrtBox[
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}]]], "  ", "\[LongRightArrow]", "  ", 
    FractionBox["2", "d"]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       RowBox[{"Sin", "[", 
        FractionBox[
         RowBox[{"f", " ", 
          SuperscriptBox["x", "2"]}], "d"], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     SqrtBox[
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}]]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, 3.497811321977312*^9, {3.4978113726473837`*^9, 
   3.4978113760773883`*^9}, {3.5533090660818973`*^9, 3.5533090990319433`*^9}, 
   3.554679686248473*^9, {3.554679917688797*^9, 3.5546799384488263`*^9}, {
   3.554680007858924*^9, 3.554680011788929*^9}, {3.55468019814919*^9, 
   3.55468022694923*^9}, {3.5546803422793913`*^9, 3.554680356709412*^9}, {
   3.5601868334396677`*^9, 3.5601868700997324`*^9}, {3.5605456749150043`*^9, 
   3.5605457358950896`*^9}, 3.5605464321460643`*^9, {3.5605485247689943`*^9, 
   3.560548556129038*^9}, 3.6739260856072936`*^9, 3.6739274465133295`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"sin", "[", 
      RowBox[{"e_.", "+", 
       RowBox[{"Pi", "/", "2"}], "+", 
       RowBox[{"f_.", "*", "x_"}]}], "]"}], "/", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"2", "/", "d"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{"f", "*", 
          RowBox[{
           RowBox[{"x", "^", "2"}], "/", "d"}]}], "]"}], ",", "x"}], "]"}], 
      ",", "x", ",", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], "]"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d", ",", "e", ",", "f"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"ComplexFreeQ", "[", "f", "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"d", "*", "e"}], "-", 
       RowBox[{"c", "*", "f"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978111332070484`*^9, 
   3.4978112789772525`*^9, {3.553309116071967*^9, 3.553309121001974*^9}, {
   3.5533091635220337`*^9, 3.553309248822153*^9}, {3.554680638979807*^9, 
   3.5546807065399017`*^9}, 3.5546814376409254`*^9, 3.5546817984914303`*^9, {
   3.554681829691474*^9, 3.554681832281478*^9}, 3.554682395362266*^9, {
   3.5601858838904*^9, 3.5601858875252066`*^9}, {3.5601870220907993`*^9, 
   3.560187022792801*^9}, {3.560187061387268*^9, 3.56018710210334*^9}, {
   3.5605458200252075`*^9, 3.5605458535852547`*^9}, 3.56054589337531*^9, {
   3.5605483791887903`*^9, 3.560548392438809*^9}, {3.560548654209175*^9, 
   3.5605486652191906`*^9}, 3.673926144165377*^9, 3.6739263956217356`*^9, 
   3.6739270231727257`*^9, 3.6739275298244495`*^9, 3.6970871131278706`*^9, {
   3.6970890048990736`*^9, 3.6970890150036516`*^9}, {3.69708904504737*^9, 
   3.6970890455924015`*^9}, 3.6973907603807893`*^9, {3.697390860210932*^9, 
   3.6973908790909586`*^9}, {3.697390989039117*^9, 3.697391000409133*^9}, {
   3.697391544954035*^9, 3.6973915523340445`*^9}, 3.70613883417439*^9, 
   3.7153701293393974`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"sin", "[", 
      RowBox[{"e_.", "+", 
       RowBox[{"f_.", "*", "x_"}]}], "]"}], "/", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"2", "/", "d"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{"f", "*", 
          RowBox[{
           RowBox[{"x", "^", "2"}], "/", "d"}]}], "]"}], ",", "x"}], "]"}], 
      ",", "x", ",", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], "]"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d", ",", "e", ",", "f"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"ComplexFreeQ", "[", "f", "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"d", "*", "e"}], "-", 
       RowBox[{"c", "*", "f"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978111332070484`*^9, 
   3.4978112789772525`*^9, {3.553309116071967*^9, 3.553309121001974*^9}, {
   3.5533091635220337`*^9, 3.553309248822153*^9}, {3.554680638979807*^9, 
   3.5546807065399017`*^9}, 3.5546814376409254`*^9, 3.5546817984914303`*^9, {
   3.554681829691474*^9, 3.554681832281478*^9}, 3.554682395362266*^9, {
   3.5601858838904*^9, 3.5601858875252066`*^9}, {3.5601870220907993`*^9, 
   3.560187022792801*^9}, {3.560187061387268*^9, 3.56018710210334*^9}, {
   3.5605458200252075`*^9, 3.5605458535852547`*^9}, 3.56054589337531*^9, {
   3.5605483791887903`*^9, 3.560548392438809*^9}, {3.560548654209175*^9, 
   3.5605486652191906`*^9}, 3.673926144165377*^9, 3.6739263956217356`*^9, 
   3.6739270231727257`*^9, 3.6739275298244495`*^9, 3.6970871131278706`*^9, 
   3.6973907627007923`*^9, 3.6973910074391427`*^9, 3.6973915590540543`*^9, 
   3.70613883418439*^9, 3.715370129347398*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], 
      SqrtBox[
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}]]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{"d", " ", "e"}], "-", 
        RowBox[{"c", " ", "f"}]}], "\[NotEqual]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, 
   3.541626373489143*^9, 3.5416289100254602`*^9, 3.5416290716356864`*^9, 
   3.5417936896767406`*^9, {3.5533052651765757`*^9, 3.5533052653865767`*^9}, 
   3.553307828830165*^9, 3.560538400940276*^9, {3.5605455940848913`*^9, 
   3.560545594284891*^9}, 3.5605463636259685`*^9, 3.560546415896042*^9, {
   3.5605469716068196`*^9, 3.5605469825168347`*^9}, 3.5605482102485533`*^9, 
   3.560549200959941*^9, 3.590637893544286*^9, {3.673567224827578*^9, 
   3.6735672250595913`*^9}, 3.673751072746504*^9, 3.6739260856172934`*^9, {
   3.673926934079599*^9, 3.673926934079599*^9}, 3.674055961084744*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"Sin", "[", 
    RowBox[{"e", "+", 
     RowBox[{"f", " ", "x"}]}], "]"}], "\[Equal]", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", 
      FractionBox[
       RowBox[{
        RowBox[{"d", " ", "e"}], "-", 
        RowBox[{"c", " ", "f"}]}], "d"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      RowBox[{
       FractionBox[
        RowBox[{"c", " ", "f"}], "d"], "+", 
       RowBox[{"f", " ", "x"}]}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"Sin", "[", 
      FractionBox[
       RowBox[{
        RowBox[{"d", " ", "e"}], "-", 
        RowBox[{"c", " ", "f"}]}], "d"], "]"}], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{
       FractionBox[
        RowBox[{"c", " ", "f"}], "d"], "+", 
       RowBox[{"f", " ", "x"}]}], "]"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 
   3.497809962345409*^9, 3.4978100933655925`*^9, {3.560547284487258*^9, 
   3.560547288287263*^9}, {3.5605473232073116`*^9, 3.5605473232073116`*^9}, {
   3.6739260855272937`*^9, 3.6739260855272937`*^9}, {3.673927146373902*^9, 
   3.673927146373902*^9}, {3.673927589080534*^9, 3.6739275929105396`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"d", " ", "e"}], "-", 
    RowBox[{"c", " ", "f"}]}], "\[NotEqual]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978119614426117`*^9, 
   3.4978119879026484`*^9}, {3.54181087288205*^9, 3.54181087288205*^9}, {
   3.5546870575891943`*^9, 3.5546870575891943`*^9}, {3.5605459529753933`*^9, 
   3.560545953875395*^9}, {3.560547364057369*^9, 3.560547364057369*^9}, {
   3.6739269346595993`*^9, 3.6739269346595993`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     RowBox[{"Sin", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], 
     SqrtBox[
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}]]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      RowBox[{"Cos", "[", 
       FractionBox[
        RowBox[{
         RowBox[{"d", " ", "e"}], "-", 
         RowBox[{"c", " ", "f"}]}], "d"], "]"}]}]}], 
    RowBox[{"\[Integral]", 
     RowBox[{
      FractionBox[
       RowBox[{"Sin", "[", 
        RowBox[{
         FractionBox[
          RowBox[{"c", " ", "f"}], "d"], "+", 
         RowBox[{"f", " ", "x"}]}], "]"}], 
       SqrtBox[
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}]]], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "+", 
  RowBox[{
   RowBox[{"Sin", "[", 
    FractionBox[
     RowBox[{
      RowBox[{"d", " ", "e"}], "-", 
      RowBox[{"c", " ", "f"}]}], "d"], "]"}], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"Cos", "[", 
       RowBox[{
        FractionBox[
         RowBox[{"c", " ", "f"}], "d"], "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], 
      SqrtBox[
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}]]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, 3.497811321977312*^9, {3.4978113726473837`*^9, 
   3.4978113760773883`*^9}, {3.5605456005348997`*^9, 3.560545604634906*^9}, {
   3.560546421186049*^9, 3.560546424006053*^9}, {3.560547154727076*^9, 
   3.56054719331713*^9}, 3.6739260855372934`*^9, {3.6739271592139196`*^9, 
   3.6739271888699617`*^9}, {3.6739272497780485`*^9, 3.673927255068056*^9}, {
   3.673927627525589*^9, 3.673927631165594*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"sin", "[", 
      RowBox[{"e_.", "+", 
       RowBox[{"f_.", "*", "x_"}]}], "]"}], "/", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"d", "*", "e"}], "-", 
         RowBox[{"c", "*", "f"}]}], ")"}], "/", "d"}], "]"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"c", "*", 
           RowBox[{"f", "/", "d"}]}], "+", 
          RowBox[{"f", "*", "x"}]}], "]"}], "/", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}], " ", "+", 
    " ", "\n", "  ", 
    RowBox[{
     RowBox[{"Sin", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"d", "*", "e"}], "-", 
         RowBox[{"c", "*", "f"}]}], ")"}], "/", "d"}], "]"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Cos", "[", 
         RowBox[{
          RowBox[{"c", "*", 
           RowBox[{"f", "/", "d"}]}], "+", 
          RowBox[{"f", "*", "x"}]}], "]"}], "/", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d", ",", "e", ",", "f"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"ComplexFreeQ", "[", "f", "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"d", "*", "e"}], "-", 
       RowBox[{"c", "*", "f"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978111332070484`*^9, 
   3.4978112789772525`*^9, {3.5546864128382916`*^9, 3.5546864142982936`*^9}, {
   3.554686583968531*^9, 3.554686587368536*^9}, {3.5605456083049107`*^9, 
   3.5605456145549192`*^9}, {3.560547628407739*^9, 3.560547651647772*^9}, {
   3.5605477959479733`*^9, 3.560547799177978*^9}, 3.5605478612680655`*^9, 
   3.560547949698189*^9, {3.5605482823486547`*^9, 3.56054830733869*^9}, 
   3.673926144185377*^9, 3.673926395631736*^9, 3.673927028792734*^9, {
   3.6739276551016283`*^9, 3.673927662241638*^9}, 3.6970871137219048`*^9, {
   3.69739063900261*^9, 3.6973907350827484`*^9}, 3.697391018608159*^9, 
   3.6973915622040586`*^9, 3.7061388496944113`*^9, 3.7153701755840425`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["5:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
     RowBox[{"Sin", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, {3.541555421591781*^9, 
   3.5415554284869933`*^9}, {3.541555475521076*^9, 3.541555531447174*^9}, {
   3.5415556524409866`*^9, 3.5415556599133997`*^9}, {3.541625671741355*^9, 
   3.541625672036371*^9}, {3.541626178006485*^9, 3.541626178006485*^9}, {
   3.5416265558493986`*^9, 3.5416265558493986`*^9}, 3.541787532627404*^9, {
   3.5417951404987717`*^9, 3.5417951427187753`*^9}, {3.541802986501009*^9, 
   3.541802988971012*^9}, {3.5418112451025715`*^9, 3.5418112454425716`*^9}, {
   3.54181456595722*^9, 3.5418145679472227`*^9}, {3.541815725788844*^9, 
   3.5418157260188446`*^9}, {3.5418956113523245`*^9, 3.541895611542325*^9}, {
   3.553305256126563*^9, 3.553305256386564*^9}, 3.5533078307701683`*^9, {
   3.5533096081426563`*^9, 3.553309608302656*^9}, {3.554684425645108*^9, 
   3.554684425885109*^9}, {3.560187234017172*^9, 3.5601872342199717`*^9}, {
   3.560188293274632*^9, 3.560188293524233*^9}, 3.5605384040002804`*^9, {
   3.560546304815886*^9, 3.5605463050258865`*^9}, 3.560546366045972*^9, 
   3.5605466208363285`*^9, 3.5605491858299193`*^9, {3.5605492395099945`*^9, 
   3.56054926481003*^9}, 3.5906378948242874`*^9, {3.6735672269667006`*^9, 
   3.6735672271797123`*^9}, {3.6737510546634693`*^9, 3.6737510549124837`*^9}, 
   3.6739260856672935`*^9, 3.674055961583945*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 
   3.497810452426095*^9, 3.4978120457827296`*^9, 3.497812291653074*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"Sin", "[", "z", "]"}], "\[Equal]", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "z"}]]}], "-", 
    RowBox[{
     FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", "z"}]]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 
   3.497809962345409*^9, 3.4978100933655925`*^9, 3.497810195205735*^9, 
   3.497811560037646*^9, 3.497811810187996*^9, 3.4978123204031143`*^9, {
   3.560219163677908*^9, 3.5602191643979087`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"Cos", "[", "z", "]"}], "\[Equal]", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "z"}]]}], "+", 
    RowBox[{
     FractionBox["1", "2"], 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", "z"}]]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, {3.497575979956957*^9, 3.4975760172870092`*^9}, 
   3.497809962345409*^9, 3.4978100933655925`*^9, 3.497810195205735*^9, 
   3.497811560037646*^9, 3.497811810187996*^9, 3.4978123204031143`*^9, {
   3.49792163015821*^9, 3.49792163015821*^9}, {3.4979835810547466`*^9, 
   3.4979835810547466`*^9}, {3.5602191680279136`*^9, 3.5602191686379147`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978105556962395`*^9, 
   3.4978105670162554`*^9}, {3.4978121595028887`*^9, 
   3.4978121713129053`*^9}, {3.497812202812949*^9, 3.497812241873004*^9}, {
   3.4978123720231867`*^9, 3.4978124858333454`*^9}, {3.541626186451968*^9, 
   3.541626186452968*^9}, 3.5417875444674206`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
    RowBox[{"Sin", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox["\[ImaginaryI]", "2"]}]}], 
    RowBox[{"\[Integral]", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", 
        RowBox[{"(", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], ")"}]}]], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-", 
  RowBox[{
   FractionBox["\[ImaginaryI]", "2"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"(", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], ")"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, 
   3.497810535736212*^9, {3.497812078252775*^9, 3.497812093972797*^9}, 
   3.4978123593031683`*^9, {3.560546308845892*^9, 3.560546312535897*^9}, {
   3.560546622636331*^9, 3.560546628426339*^9}, 3.673926085687294*^9, {
   3.673927764989882*^9, 3.673927793529922*^9}, {3.673927823582965*^9, 
   3.6739278253729672`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"sin", "[", 
      RowBox[{"e_.", "+", 
       RowBox[{"k_.", "*", "Pi"}], "+", 
       RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"I", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "I"}], "*", "k", "*", "Pi"}], ")"}]}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "I"}], "*", 
           RowBox[{"(", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], ")"}]}], ")"}]}]}], ",", "x"}], 
      "]"}]}], " ", "-", " ", 
    RowBox[{
     RowBox[{"I", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"I", "*", "k", "*", "Pi"}], ")"}]}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"I", "*", 
           RowBox[{"(", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], ")"}]}], ")"}]}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d", ",", "e", ",", "f", ",", "m"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"2", "*", "k"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 
   3.497810442686082*^9, 3.49781112699704*^9, 3.497812038232719*^9, 
   3.4978123314331293`*^9, 3.4978449628776217`*^9, 3.541787594537491*^9, {
   3.554686444378336*^9, 3.554686445468337*^9}, {3.55468664723862*^9, 
   3.5546866504986243`*^9}, {3.5605463159659014`*^9, 3.5605463218559103`*^9}, 
   3.560548782669355*^9, {3.560548829989421*^9, 3.5605488307994223`*^9}, {
   3.5605488755994854`*^9, 3.5605488766294866`*^9}, 3.673926144205377*^9, 
   3.673926395651736*^9, {3.6739278126929493`*^9, 3.6739278160129538`*^9}, {
   3.673927855836011*^9, 3.673927877429042*^9}, 3.6970871147039604`*^9, {
   3.6973888556355247`*^9, 3.6973889364316406`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{"sin", "[", 
      RowBox[{"e_.", "+", 
       RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"I", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "I"}], "*", 
           RowBox[{"(", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], ")"}]}], ")"}]}]}], ",", "x"}], 
      "]"}]}], " ", "-", " ", 
    RowBox[{
     RowBox[{"I", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"I", "*", 
           RowBox[{"(", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], ")"}]}], ")"}]}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", ",", "d", ",", "e", ",", "f", ",", "m"}], "}"}], ",", 
     "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 
   3.497810442686082*^9, 3.49781112699704*^9, 3.497812038232719*^9, 
   3.4978123314331293`*^9, 3.4978449628776217`*^9, 3.541787594537491*^9, {
   3.554686444378336*^9, 3.554686445468337*^9}, {3.55468664723862*^9, 
   3.5546866504986243`*^9}, {3.5605463159659014`*^9, 3.5605463218559103`*^9}, 
   3.560548782669355*^9, {3.560548829989421*^9, 3.5605488307994223`*^9}, {
   3.5605488755994854`*^9, 3.5605488766294866`*^9}, 3.673926144205377*^9, 
   3.673926395651736*^9, {3.6739278126929493`*^9, 3.6739278160129538`*^9}, {
   3.673927855836011*^9, 3.673927877429042*^9}, 3.6970871147039604`*^9, 
   3.6973888471455126`*^9, {3.6973888911185756`*^9, 3.697388891998577*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", ">", "1"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, 3.5416917928353863`*^9, 3.5416918654707212`*^9, {
   3.5417873058670864`*^9, 3.541787319807106*^9}, {3.541789540400215*^9, 
   3.5417895530802326`*^9}, 3.541789616030321*^9, {3.5417897122304554`*^9, 
   3.5417897124504557`*^9}, {3.5417925317651196`*^9, 
   3.5417925320051203`*^9}, {3.5417934393063903`*^9, 3.5417934399563913`*^9}, 
   3.56053716793855*^9, 3.5605430857613792`*^9, {3.560618188462561*^9, 
   3.560618188462561*^9}, {3.5635748887392874`*^9, 3.563574889859289*^9}, {
   3.563575530050185*^9, 3.5635755309001865`*^9}, 3.590637895484288*^9, {
   3.673567227994759*^9, 3.673567228206771*^9}, 3.6739260856972938`*^9, {
   3.673926498944883*^9, 3.673926502944888*^9}, 3.673929009767744*^9, 
   3.674055962285946*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], "2"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.5532994983585024`*^9, 
   3.55329951066852*^9}, {3.553299674548749*^9, 3.553299677098753*^9}, {
   3.5532997683688803`*^9, 3.5532997697188826`*^9}, {3.5532998793090363`*^9, 
   3.5532998793090363`*^9}, {3.5533053382266784`*^9, 3.553305338476679*^9}, 
   3.553307856240204*^9, 3.560538406390284*^9, {3.5605431925215287`*^9, 
   3.5605432623516264`*^9}, {3.560543758252321*^9, 3.560543758252321*^9}, {
   3.5605451652042904`*^9, 3.5605451812443132`*^9}, 3.5605452179143643`*^9, {
   3.5606181982825747`*^9, 3.5606181982825747`*^9}, {3.563574892719293*^9, 
   3.563574894149295*^9}, {3.5635755374101954`*^9, 3.5635755385401974`*^9}, 
   3.5906378970742903`*^9, {3.6735672307719183`*^9, 3.67356723097293*^9}, 
   3.673926085727294*^9, 3.673926515569906*^9, 3.6739290111077456`*^9, 
   3.674055981072379*^9, {3.7096835789558177`*^9, 3.7096836065823975`*^9}, {
   3.7096838318752837`*^9, 3.7096838448910284`*^9}, 3.7096841041568575`*^9, 
   3.7096842530043707`*^9, {3.7096845788300076`*^9, 3.7096845801550827`*^9}, 
   3.709684885032521*^9, {3.709684954973521*^9, 3.7096849551355305`*^9}, 
   3.7096928995259237`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9, 
   3.497662798718403*^9}, {3.5076647229436293`*^9, 3.507664727563636*^9}, 
   3.514253181887664*^9, {3.5455040345073204`*^9, 3.5455040366873236`*^9}, {
   3.545504158357494*^9, 3.545504246227617*^9}, {3.545505035248721*^9, 
   3.5455051376488647`*^9}, {3.5456005712019787`*^9, 
   3.5456005712019787`*^9}, {3.5480100113402867`*^9, 3.548010012360288*^9}, {
   3.548010302450694*^9, 3.548010302870695*^9}, {3.5630304726923504`*^9, 
   3.5630305459812794`*^9}, {3.5630307316528053`*^9, 
   3.5630307335092087`*^9}, {3.5630327435025606`*^9, 
   3.5630327618226085`*^9}, {3.563034117071627*^9, 3.563034127791642*^9}, {
   3.5967335794692144`*^9, 3.5967335808192167`*^9}, {3.709679594283479*^9, 
   3.7096795982302856`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"Sin", "[", "z", "]"}], "2"], "\[Equal]", 
   RowBox[{
    FractionBox["1", "2"], "-", 
    FractionBox[
     RowBox[{"Cos", "[", 
      RowBox[{"2", " ", "z"}], "]"}], "2"]}]}]], "Input",
  CellChangeTimes->{{3.709679626232335*^9, 3.7096796314427443`*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, {
   3.4975780869725127`*^9, 3.4975780962225256`*^9}, {3.4976627907155895`*^9, 
   3.497662798718403*^9}, {3.5076647229436293`*^9, 3.507664727563636*^9}, 
   3.514253181887664*^9, {3.5455040345073204`*^9, 3.5455040366873236`*^9}, {
   3.545504158357494*^9, 3.545504246227617*^9}, {3.545505035248721*^9, 
   3.5455051376488647`*^9}, {3.5456005712019787`*^9, 
   3.5456005712019787`*^9}, {3.5480100113402867`*^9, 3.548010012360288*^9}, {
   3.548010302450694*^9, 3.548010302870695*^9}, {3.5630304726923504`*^9, 
   3.5630305459812794`*^9}, {3.5630307316528053`*^9, 
   3.5630307335092087`*^9}, {3.5630327435025606`*^9, 
   3.5630327618226085`*^9}, {3.563034117071627*^9, 3.563034127791642*^9}, {
   3.5967335794692144`*^9, 3.5967335808192167`*^9}, {3.709679594283479*^9, 
   3.709679605655899*^9}, 3.709679638634357*^9, {3.7096923878456573`*^9, 
   3.7096923878456573`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978119614426117`*^9, 
   3.4978119879026484`*^9}, {3.4978142081057568`*^9, 
   3.4978142300257874`*^9}, {3.4978148508166566`*^9, 3.49781485307666*^9}, {
   3.5532998699190226`*^9, 3.553299873909028*^9}, {3.560543277171647*^9, 
   3.5605432814016533`*^9}, {3.5605437496623087`*^9, 3.560543760582324*^9}, {
   3.560618308192729*^9, 3.560618308192729*^9}, {3.5635748991393023`*^9, 
   3.5635749002993035`*^9}, {3.6739266937421618`*^9, 3.673926694592163*^9}, {
   3.709684973584586*^9, 3.7096849740526123`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
    SuperscriptBox[
     RowBox[{"Sin", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], "2"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox["1", "2"]}]}], " ", 
    RowBox[{"\[Integral]", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{
       RowBox[{"2", " ", "e"}], "+", 
       RowBox[{"2", " ", "f", " ", "x"}]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, {
   3.4978114755275273`*^9, 3.4978114885575457`*^9}, {3.4978139885554495`*^9, 
   3.49781400341547*^9}, 3.4978141842457237`*^9, {3.4978450113076897`*^9, 
   3.497845040857731*^9}, {3.5533071155191665`*^9, 3.553307143769206*^9}, {
   3.5605432072915497`*^9, 3.560543218351565*^9}, {3.560543289821665*^9, 
   3.5605433617617655`*^9}, {3.560543743872301*^9, 3.560543793932371*^9}, {
   3.563574901309305*^9, 3.5635749063293123`*^9}, {3.673926085747294*^9, 
   3.673926085777294*^9}, {3.673926520402913*^9, 3.6739265504609585`*^9}, {
   3.6739267598262587`*^9, 3.673926761476261*^9}, 3.6739288227634783`*^9, {
   3.6739290126777477`*^9, 3.673929012707748*^9}, {3.6739291326259193`*^9, 
   3.673929133795921*^9}, {3.709683629392702*^9, 3.709683657988338*^9}, {
   3.7096836981926374`*^9, 3.7096837248021593`*^9}, {3.7096837974053125`*^9, 
   3.7096838090169764`*^9}, {3.709683853118499*^9, 3.7096838664222593`*^9}, {
   3.709683909669733*^9, 3.70968391379797*^9}, 3.709684036413983*^9, {
   3.709684528086105*^9, 3.7096845755328183`*^9}, 3.7096846987598667`*^9, {
   3.7096849020754957`*^9, 3.7096849290850406`*^9}, {3.7096929152258215`*^9, 
   3.7096929327408237`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"sin", "[", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", 
         RowBox[{"x_", "/", "2"}]}]}], "]"}], "^", "2"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], ",", "x"}], "]"}]}], 
    " ", "-", " ", 
    RowBox[{
     RowBox[{"1", "/", "2"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{"Cos", "[", 
         RowBox[{
          RowBox[{"2", "*", "e"}], "+", 
          RowBox[{"f", "*", "x"}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", ",", "d", ",", "e", ",", "f", ",", "m"}], "}"}], ",", 
     "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 
   3.497811129647043*^9, 3.497811455437499*^9, 3.4978130018340683`*^9, 
   3.4978139290053663`*^9, 3.5171906797970753`*^9, {3.554686466888367*^9, 
   3.5546864692383704`*^9}, {3.554686685178673*^9, 3.554686689788679*^9}, {
   3.560543381921794*^9, 3.56054350769197*^9}, {3.5605435622020464`*^9, 
   3.560543595642093*^9}, {3.5605438140523987`*^9, 3.5605438385424333`*^9}, {
   3.5605438773024874`*^9, 3.560543892542509*^9}, {3.5606182947227097`*^9, 
   3.560618296182712*^9}, {3.5635749073593135`*^9, 3.5635749122193203`*^9}, {
   3.5635756609303684`*^9, 3.563575662540371*^9}, {3.6739261143043346`*^9, 
   3.673926144225377*^9}, 3.6739263956617355`*^9, {3.6739279478031416`*^9, 
   3.6739279549831514`*^9}, {3.6739287457233686`*^9, 3.6739287564033833`*^9}, 
   3.6739289161006117`*^9, {3.6739290367727823`*^9, 3.6739290594828157`*^9}, {
   3.6739292795901318`*^9, 3.673929280280133*^9}, 3.6739294031453075`*^9, {
   3.6739296049566936`*^9, 3.6739296154387083`*^9}, 3.6970871153779993`*^9, {
   3.709684268532259*^9, 3.7096842792788734`*^9}, {3.7096843217913055`*^9, 
   3.709684342120468*^9}, {3.709684744256469*^9, 3.7096847503248158`*^9}, {
   3.709685007872547*^9, 3.70968504621774*^9}, {3.709692980372548*^9, 
   3.709692990442124*^9}, {3.7096930250931053`*^9, 3.7096930254241247`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", ">", "1"}], " ", "\[And]", " ", 
       RowBox[{"m", "\[GreaterEqual]", "1"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, 3.5416917928353863`*^9, 3.5416918654707212`*^9, {
   3.5417873058670864`*^9, 3.541787319807106*^9}, {3.541789540400215*^9, 
   3.5417895530802326`*^9}, 3.541789616030321*^9, {3.5417897122304554`*^9, 
   3.5417897124504557`*^9}, {3.5417925317651196`*^9, 
   3.5417925320051203`*^9}, {3.5417934393063903`*^9, 3.5417934399563913`*^9}, 
   3.56053716793855*^9, 3.5605430857613792`*^9, {3.5605451958043337`*^9, 
   3.5605452147343597`*^9}, {3.560618056932377*^9, 3.560618058552379*^9}, {
   3.560618190902564*^9, 3.560618190902564*^9}, {3.5635748906792903`*^9, 
   3.5635748915292916`*^9}, {3.5635755338701906`*^9, 3.563575534640192*^9}, 
   3.5906378961342893`*^9, {3.6735672296938562`*^9, 3.6735672298878675`*^9}, 
   3.6739260857172937`*^9, 3.6739265114299*^9, 3.6739290102777443`*^9, 
   3.6740559803859777`*^9, {3.7096851257692904`*^9, 3.709685126045306*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{"n", ">", "1"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.5532994983585024`*^9, 
   3.55329951066852*^9}, {3.553299674548749*^9, 3.553299677098753*^9}, {
   3.5532997683688803`*^9, 3.5532997697188826`*^9}, {3.5532998793090363`*^9, 
   3.5532998793090363`*^9}, {3.5533053382266784`*^9, 3.553305338476679*^9}, 
   3.553307856240204*^9, 3.560538406390284*^9, {3.5605431925215287`*^9, 
   3.5605432623516264`*^9}, {3.560543758252321*^9, 3.560543758252321*^9}, {
   3.5605451652042904`*^9, 3.5605451812443132`*^9}, 3.5605452179143643`*^9, {
   3.5606181982825747`*^9, 3.5606181982825747`*^9}, {3.563574892719293*^9, 
   3.563574894149295*^9}, {3.5635755374101954`*^9, 3.5635755385401974`*^9}, 
   3.5906378970742903`*^9, {3.6735672307719183`*^9, 3.67356723097293*^9}, 
   3.673926085727294*^9, 3.673926515569906*^9, 3.6739290111077456`*^9, 
   3.674055981072379*^9, 3.7096836090725403`*^9, {3.7096841070290213`*^9, 
   3.7096841088951283`*^9}, {3.7096851064731865`*^9, 3.709685108309292*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Reference: G&R 2.631.2 with ",
 Cell[BoxData[
  RowBox[{"m", "\[Rule]", "1"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, {
   3.497813680335018*^9, 3.497813696825041*^9}, 3.497814297695882*^9, {
   3.4978143293659267`*^9, 3.4978143308159285`*^9}, 3.498239516771779*^9, {
   3.4990388058462014`*^9, 3.4990388139270153`*^9}, {3.553299836928976*^9, 
   3.553299838098978*^9}, {3.5605437208722687`*^9, 3.560543734322287*^9}, {
   3.5635756833004*^9, 3.563575691040411*^9}}],

Cell[TextData[{
 "Reference: G&R 2.631.3 ",
 "with ",
 Cell[BoxData[
  RowBox[{"m", "\[Rule]", "1"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, {
   3.497813680335018*^9, 3.497813696825041*^9}, 3.497814297695882*^9, {
   3.4978143293659267`*^9, 3.4978143308159285`*^9}, {3.4979841931998215`*^9, 
   3.4979841936366224`*^9}, {3.4990389647480803`*^9, 
   3.4990389647480803`*^9}, {3.5532998327589707`*^9, 
   3.5532998505589952`*^9}, {3.5605437271922774`*^9, 3.560543738372293*^9}, 
   3.563575699150422*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"n", ">", "1"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978119614426117`*^9, 
   3.4978119879026484`*^9}, {3.4978142081057568`*^9, 
   3.4978142300257874`*^9}, {3.4978148508166566`*^9, 3.49781485307666*^9}, {
   3.5532998699190226`*^9, 3.553299873909028*^9}, {3.560543277171647*^9, 
   3.5605432814016533`*^9}, {3.5605437496623087`*^9, 3.560543760582324*^9}, {
   3.560618308192729*^9, 3.560618308192729*^9}, {3.5635748991393023`*^9, 
   3.5635749002993035`*^9}, {3.6739266937421618`*^9, 3.673926694592163*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{"d", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"]}], 
       RowBox[{
        SuperscriptBox["f", "2"], 
        SuperscriptBox["n", "2"]}]]}]}]}]}], "-", 
  FractionBox[
   RowBox[{"b", " ", 
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], ")"}], " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
     RowBox[{"n", "-", "1"}]]}], 
   RowBox[{"f", " ", "n"}]], "+", 
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["b", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"n", "-", "1"}], ")"}]}], "n"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"n", "-", "2"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, {
   3.4978114755275273`*^9, 3.4978114885575457`*^9}, {3.4978139885554495`*^9, 
   3.49781400341547*^9}, 3.4978141842457237`*^9, {3.4978450113076897`*^9, 
   3.497845040857731*^9}, {3.5533071155191665`*^9, 3.553307143769206*^9}, {
   3.5605432072915497`*^9, 3.560543218351565*^9}, {3.560543289821665*^9, 
   3.5605433617617655`*^9}, {3.560543743872301*^9, 3.560543793932371*^9}, {
   3.563574901309305*^9, 3.5635749063293123`*^9}, {3.673926085747294*^9, 
   3.673926085777294*^9}, {3.673926520402913*^9, 3.6739265504609585`*^9}, {
   3.6739267598262587`*^9, 3.673926761476261*^9}, 3.6739288227634783`*^9, {
   3.6739290126777477`*^9, 3.673929012707748*^9}, {3.6739291326259193`*^9, 
   3.673929133795921*^9}, {3.709683611258665*^9, 3.7096836179340467`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"d", "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "n"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"f", "^", "2"}], "*", 
        RowBox[{"n", "^", "2"}]}], ")"}]}]}], " ", "-", "\n", "  ", 
    RowBox[{"b", "*", 
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", "*", "x"}]}], ")"}], "*", 
     RowBox[{"Cos", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "-", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", "n"}], ")"}]}]}], " ", "+", "\n", "  ", 
    RowBox[{
     RowBox[{"b", "^", "2"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"n", "-", "1"}], ")"}], "/", "n"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], ")"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "-", "2"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"n", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 
   3.497811129647043*^9, 3.497811455437499*^9, 3.4978130018340683`*^9, 
   3.4978139290053663`*^9, 3.5171906797970753`*^9, {3.554686466888367*^9, 
   3.5546864692383704`*^9}, {3.554686685178673*^9, 3.554686689788679*^9}, {
   3.560543381921794*^9, 3.56054350769197*^9}, {3.5605435622020464`*^9, 
   3.560543595642093*^9}, {3.5605438140523987`*^9, 3.5605438385424333`*^9}, {
   3.5605438773024874`*^9, 3.560543892542509*^9}, {3.5606182947227097`*^9, 
   3.560618296182712*^9}, {3.5635749073593135`*^9, 3.5635749122193203`*^9}, {
   3.5635756609303684`*^9, 3.563575662540371*^9}, {3.6739261143043346`*^9, 
   3.673926144225377*^9}, 3.6739263956617355`*^9, {3.6739279478031416`*^9, 
   3.6739279549831514`*^9}, {3.6739287457233686`*^9, 3.6739287564033833`*^9}, 
   3.6739289161006117`*^9, {3.6739290367727823`*^9, 3.6739290594828157`*^9}, {
   3.6739292795901318`*^9, 3.673929280280133*^9}, 3.6739294031453075`*^9, {
   3.6739296049566936`*^9, 3.6739296154387083`*^9}, 3.6970871153779993`*^9, {
   3.715370190867917*^9, 3.715370195034155*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", ">", "1"}], " ", "\[And]", " ", 
       RowBox[{"m", ">", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.5532994983585024`*^9, 
   3.55329951066852*^9}, {3.553299674548749*^9, 3.553299677098753*^9}, {
   3.5532997683688803`*^9, 3.5532997697188826`*^9}, {3.5532998793090363`*^9, 
   3.5532998793090363`*^9}, {3.5533053382266784`*^9, 3.553305338476679*^9}, 
   3.553307856240204*^9, 3.560538406390284*^9, {3.5605431925215287`*^9, 
   3.5605432623516264`*^9}, {3.560545220984369*^9, 3.5605452232543716`*^9}, {
   3.5605657140312624`*^9, 3.5605657148512635`*^9}, {3.5606182002225776`*^9, 
   3.5606182002225776`*^9}, {3.563574916949327*^9, 3.5635749177393284`*^9}, {
   3.563575717530448*^9, 3.5635757186704493`*^9}, {3.5754895990648794`*^9, 
   3.575489623874914*^9}, 3.5906378990642934`*^9, {3.6735672368882675`*^9, 
   3.673567237240288*^9}, 3.673906019350505*^9, {3.673909522662883*^9, 
   3.673909522662883*^9}, 3.6739260857972937`*^9, 3.6739266072580385`*^9, 
   3.6739290127177477`*^9, 3.6740559816183805`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.631.2", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 
   3.497811532897608*^9, 3.49781393901538*^9, 3.56054327184164*^9}],

Cell["Reference: G&R 2.631.3", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 
   3.497811532897608*^9, 3.49781393901538*^9, {3.49798426068554*^9, 
   3.497984261184741*^9}, 3.5605432742216434`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", ">", "1"}], " ", "\[And]", " ", 
   RowBox[{"m", ">", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978119614426117`*^9, 
   3.4978119879026484`*^9}, {3.4978142081057568`*^9, 
   3.4978142300257874`*^9}, {3.4978148508166566`*^9, 3.49781485307666*^9}, {
   3.5532998699190226`*^9, 3.553299873909028*^9}, {3.560543277171647*^9, 
   3.5605432814016533`*^9}, {3.5605657183112683`*^9, 3.56056571919127*^9}, {
   3.5606183566827965`*^9, 3.5606183566827965`*^9}, {3.56357491922933*^9, 
   3.563574919719331*^9}, {3.563575720960453*^9, 3.5635757221404543`*^9}, {
   3.5754896274349194`*^9, 3.5754896274349194`*^9}, {3.673909526967129*^9, 
   3.673909526967129*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{"d", " ", "m", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], ")"}], 
         RowBox[{"m", "-", "1"}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"]}], 
       RowBox[{
        SuperscriptBox["f", "2"], 
        SuperscriptBox["n", "2"]}]]}]}]}]}], "-", 
  FractionBox[
   RowBox[{"b", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
     RowBox[{"n", "-", "1"}]]}], 
   RowBox[{"f", " ", "n"}]], "+", "\[IndentingNewLine]", 
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["b", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"n", "-", "1"}], ")"}]}], "n"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"n", "-", "2"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["d", "2"], "m", " ", 
     RowBox[{"(", 
      RowBox[{"m", "-", "1"}], ")"}]}], 
    RowBox[{
     SuperscriptBox["f", "2"], 
     SuperscriptBox["n", "2"]}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], 
      RowBox[{"m", "-", "2"}]], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, {
   3.4978114755275273`*^9, 3.4978114885575457`*^9}, {3.4978139885554495`*^9, 
   3.49781400341547*^9}, 3.4978141842457237`*^9, {3.4978450113076897`*^9, 
   3.497845040857731*^9}, {3.5533071155191665`*^9, 3.553307143769206*^9}, {
   3.5605432072915497`*^9, 3.560543218351565*^9}, {3.560543289821665*^9, 
   3.5605433617617655`*^9}, {3.5635749205793324`*^9, 
   3.5635749254393387`*^9}, {3.673926085817294*^9, 3.673926085857294*^9}, {
   3.6739266094980416`*^9, 3.673926641183087*^9}, {3.673927962886163*^9, 
   3.673927964646166*^9}, {3.673929012727748*^9, 3.673929012747748*^9}, {
   3.6739291381779275`*^9, 3.6739291394079294`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"d", "*", "m", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "n"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"f", "^", "2"}], "*", 
        RowBox[{"n", "^", "2"}]}], ")"}]}]}], " ", "-", "\n", "  ", 
    RowBox[{"b", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
     RowBox[{"Cos", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "-", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", "n"}], ")"}]}]}], " ", "+", "\n", "  ", 
    RowBox[{
     RowBox[{"b", "^", "2"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"n", "-", "1"}], ")"}], "/", "n"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "-", "2"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "-", 
    "\n", "  ", 
    RowBox[{
     RowBox[{"d", "^", "2"}], "*", "m", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"f", "^", "2"}], "*", 
        RowBox[{"n", "^", "2"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "2"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "n"}]}], ",", 
       "x"}], "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"n", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"m", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 
   3.497811129647043*^9, 3.497811455437499*^9, 3.4978130018340683`*^9, 
   3.4978139290053663`*^9, 3.5171906797970753`*^9, {3.554686466888367*^9, 
   3.5546864692383704`*^9}, {3.554686685178673*^9, 3.554686689788679*^9}, {
   3.560543381921794*^9, 3.56054350769197*^9}, {3.5605435622020464`*^9, 
   3.560543595642093*^9}, 3.560543843912441*^9, {3.560565724471277*^9, 
   3.5605657284912825`*^9}, {3.560618331052761*^9, 3.5606183445727797`*^9}, {
   3.5635749265493402`*^9, 3.5635749312793474`*^9}, {3.563575734670472*^9, 
   3.563575742410483*^9}, 3.5754896367549324`*^9, 3.6739095150454473`*^9, {
   3.673926114364335*^9, 3.6739261442453775`*^9}, 3.673926395681736*^9, {
   3.673927968162171*^9, 3.673927969612173*^9}, 3.6739287806904182`*^9, 
   3.673928919040616*^9, 3.673929038852785*^9, 3.6739290691628284`*^9, {
   3.673929283570137*^9, 3.673929286460141*^9}, {3.67392963036973*^9, 
   3.6739296371297393`*^9}, 3.697087115964033*^9, {3.7153702111060743`*^9, 
   3.7153702191365337`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["3.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", ">", "1"}], " ", "\[And]", " ", 
       RowBox[{"m", "<", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, 3.5416917928353863`*^9, 3.5416918654707212`*^9, {
   3.5417873058670864`*^9, 3.541787319807106*^9}, {3.541789540400215*^9, 
   3.5417895530802326`*^9}, 3.541789616030321*^9, {3.5417897122304554`*^9, 
   3.5417897124504557`*^9}, {3.5417925317651196`*^9, 
   3.5417925320051203`*^9}, {3.5417934393063903`*^9, 3.5417934399563913`*^9}, 
   3.56053716793855*^9, 3.5605430857613792`*^9, {3.5605451958043337`*^9, 
   3.5605452147343597`*^9}, {3.560560674568005*^9, 3.5605606805680137`*^9}, {
   3.5605610262684975`*^9, 3.5605610262684975`*^9}, {3.5606181213524675`*^9, 
   3.5606181213524675`*^9}, {3.5606182021625805`*^9, 
   3.5606182021625805`*^9}, {3.5635749364693546`*^9, 3.563574937499356*^9}, {
   3.563575778070533*^9, 3.563575779080534*^9}, 3.590637902214298*^9, {
   3.6735672380853367`*^9, 3.673567238292348*^9}, 3.673926085877294*^9, 
   3.673928188872484*^9, 3.673929012747748*^9, 3.674055982133181*^9, {
   3.7096851434873037`*^9, 3.7096851437173166`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
       " ", 
       RowBox[{"n", ">", "1"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"-", "1"}], "\[LessEqual]", "m", "<", "1"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.5532994983585024`*^9, 
   3.55329951066852*^9}, {3.553299674548749*^9, 3.553299677098753*^9}, {
   3.5532997683688803`*^9, 3.5532997697188826`*^9}, {3.5532998793090363`*^9, 
   3.5532998793090363`*^9}, {3.5533053382266784`*^9, 3.553305338476679*^9}, 
   3.553307856240204*^9, 3.560538406390284*^9, {3.5605431925215287`*^9, 
   3.5605432623516264`*^9}, {3.560543758252321*^9, 3.560543758252321*^9}, {
   3.5605451652042904`*^9, 3.5605451812443132`*^9}, 3.5605452179143643`*^9, {
   3.560561411389037*^9, 3.5605614363990717`*^9}, {3.5605615143591805`*^9, 
   3.560561521399191*^9}, {3.5605615993293*^9, 3.5605616126793184`*^9}, {
   3.560562675150806*^9, 3.5605626754008064`*^9}, {3.5605654704009213`*^9, 
   3.5605654862309437`*^9}, {3.5606167866405983`*^9, 3.560616788840602*^9}, {
   3.5606175939417286`*^9, 3.5606176039117427`*^9}, {3.560618124842472*^9, 
   3.5606181269924755`*^9}, {3.563574938239357*^9, 3.5635749388693576`*^9}, {
   3.563575781900538*^9, 3.5635757827405396`*^9}, {3.5635758857506833`*^9, 
   3.5635758857506833`*^9}, 3.590637903044299*^9, {3.67356723937341*^9, 
   3.6735672395764217`*^9}, 3.673926085897294*^9, 3.6739281906924863`*^9, 
   3.6739290127577477`*^9, 3.674055982663582*^9, 3.674068160016721*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic exnansion", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978119614426117`*^9, 
   3.4978119879026484`*^9}, {3.4978142081057568`*^9, 
   3.4978142300257874`*^9}, {3.497814551106237*^9, 3.4978145682762613`*^9}, {
   3.4978146024663086`*^9, 3.4978146072663155`*^9}, {3.497814842496645*^9, 
   3.4978148883467093`*^9}, {3.4978154312274694`*^9, 
   3.4978154608075104`*^9}, {3.55329993229911*^9, 3.553299940089121*^9}, {
   3.560542268235942*^9, 3.560542279374362*^9}, {3.5605427443509016`*^9, 
   3.5605427443509016`*^9}, {3.560550944632382*^9, 3.5605509458123837`*^9}, {
   3.5605509793324304`*^9, 3.5605509793324304`*^9}, {3.560556428784561*^9, 
   3.5605564305945635`*^9}, {3.560560165737293*^9, 3.5605601664072933`*^9}, {
   3.5605604376776733`*^9, 3.5605604478776875`*^9}, {3.5606177207519064`*^9, 
   3.5606177250119123`*^9}, 3.5635749392693586`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 
   RowBox[{"n", ">", "1"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"-", "1"}], "\[LessEqual]", "m", "<", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978119614426117`*^9, 
   3.4978119879026484`*^9}, {3.4978142081057568`*^9, 
   3.4978142300257874`*^9}, {3.4978148508166566`*^9, 3.49781485307666*^9}, {
   3.5532998699190226`*^9, 3.553299873909028*^9}, {3.560543277171647*^9, 
   3.5605432814016533`*^9}, {3.5605437496623087`*^9, 3.560543760582324*^9}, {
   3.5605614461690855`*^9, 3.5605614461690855`*^9}, {3.560561617419325*^9, 
   3.560561617419325*^9}, {3.560565492320952*^9, 3.560565492320952*^9}, {
   3.5606176445317993`*^9, 3.5606176445317993`*^9}, {3.5635749396693587`*^9, 
   3.5635749402093596`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
   SuperscriptBox[
    RowBox[{"Sin", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
       RowBox[{"TrigReduce", "[", 
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}], "n"], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, {
   3.4978114755275273`*^9, 3.4978114885575457`*^9}, {3.4978139885554495`*^9, 
   3.49781400341547*^9}, 3.4978141842457237`*^9, {3.4978450113076897`*^9, 
   3.497845040857731*^9}, {3.5533071155191665`*^9, 3.553307143769206*^9}, {
   3.5605432072915497`*^9, 3.560543218351565*^9}, {3.560543289821665*^9, 
   3.5605433617617655`*^9}, {3.560543743872301*^9, 3.560543793932371*^9}, {
   3.5605614512990923`*^9, 3.560561484309139*^9}, {3.5605615241191945`*^9, 
   3.560561525739197*^9}, {3.563574941029361*^9, 3.563574941539362*^9}, {
   3.6739260859072943`*^9, 3.673926085917294*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"sin", "[", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], "]"}], "^", "n_"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"ExpandTrigReduce", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], ",", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}], "^", "n"}], ",", "x"}], "]"}], 
     ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d", ",", "e", ",", "f", ",", "m"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"n", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Not", "[", 
       RowBox[{"RationalQ", "[", "m", "]"}], "]"}], " ", "||", " ", 
      RowBox[{
       RowBox[{"GeQ", "[", 
        RowBox[{"m", ",", 
         RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
       RowBox[{"LtQ", "[", 
        RowBox[{"m", ",", "1"}], "]"}]}]}], ")"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 
   3.497811129647043*^9, 3.497811455437499*^9, 3.4978130018340683`*^9, 
   3.4978139290053663`*^9, 3.5171906797970753`*^9, {3.554686466888367*^9, 
   3.5546864692383704`*^9}, {3.554686685178673*^9, 3.554686689788679*^9}, {
   3.560543381921794*^9, 3.56054350769197*^9}, {3.5605435622020464`*^9, 
   3.560543595642093*^9}, {3.5605438140523987`*^9, 3.5605438385424333`*^9}, {
   3.5605438773024874`*^9, 3.560543892542509*^9}, {3.560561581769275*^9, 
   3.5605615848392797`*^9}, {3.5605616952394342`*^9, 3.560561714399461*^9}, {
   3.5605618673996754`*^9, 3.5605618743496847`*^9}, {3.560562126080037*^9, 
   3.560562131050044*^9}, {3.560562686000821*^9, 3.5605627146408615`*^9}, {
   3.5605631709716015`*^9, 3.5605631740216055`*^9}, {3.560563615172223*^9, 
   3.560563633092248*^9}, {3.560564547326028*^9, 3.5605645508760333`*^9}, 
   3.560565448930891*^9, {3.5605680076944733`*^9, 3.56056809113459*^9}, {
   3.5606134188418813`*^9, 3.5606134226018867`*^9}, {3.5606136511722064`*^9, 
   3.560613655142212*^9}, {3.5606167722305784`*^9, 3.560616778350587*^9}, {
   3.560617563471686*^9, 3.5606175822517123`*^9}, {3.560617664891828*^9, 
   3.5606176741618414`*^9}, {3.563574942559363*^9, 3.563574945209367*^9}, 
   3.56357523353977*^9, {3.5635759020307064`*^9, 3.563575924330737*^9}, {
   3.563580599027282*^9, 3.5635805992372828`*^9}, {3.673926114444335*^9, 
   3.6739261442553773`*^9}, 3.6739263957017355`*^9, 3.6970871165680676`*^9, {
   3.715370230205167*^9, 3.7153702589598117`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
       " ", 
       RowBox[{"n", ">", "1"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"-", "2"}], "\[LessEqual]", "m", "<", 
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.5532994983585024`*^9, 
   3.55329951066852*^9}, {3.553299674548749*^9, 3.553299677098753*^9}, {
   3.5532997683688803`*^9, 3.5532997697188826`*^9}, {3.5532998793090363`*^9, 
   3.5532998793090363`*^9}, {3.5533053382266784`*^9, 3.553305338476679*^9}, 
   3.553307856240204*^9, 3.560538406390284*^9, {3.5605431925215287`*^9, 
   3.5605432623516264`*^9}, {3.560543758252321*^9, 3.560543758252321*^9}, {
   3.5605451652042904`*^9, 3.5605451812443132`*^9}, 3.5605452179143643`*^9, {
   3.560561411389037*^9, 3.5605614363990717`*^9}, {3.5605615143591805`*^9, 
   3.560561521399191*^9}, {3.5605615993293*^9, 3.5605616126793184`*^9}, {
   3.560562675150806*^9, 3.5605626754008064`*^9}, {3.5605654704009213`*^9, 
   3.5605654862309437`*^9}, {3.56061762345177*^9, 3.56061762345177*^9}, {
   3.5606181314724813`*^9, 3.560618132532483*^9}, {3.5635749480093703`*^9, 
   3.5635749488393717`*^9}, 3.5906379037843*^9, {3.673567240408469*^9, 
   3.6735672406084805`*^9}, 3.673926085937294*^9, 3.673928192297489*^9, 
   3.673929012767748*^9, 3.674055983193983*^9, 3.6740681732187395`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978119614426117`*^9, 
   3.4978119879026484`*^9}, {3.4978142081057568`*^9, 
   3.4978142300257874`*^9}, {3.497814551106237*^9, 3.4978145682762613`*^9}, {
   3.4978146024663086`*^9, 3.4978146072663155`*^9}, {3.497814842496645*^9, 
   3.4978148883467093`*^9}, {3.4978154312274694`*^9, 
   3.4978154608075104`*^9}, {3.55329993229911*^9, 3.553299940089121*^9}, {
   3.560542268235942*^9, 3.560542279374362*^9}, {3.5605427443509016`*^9, 
   3.5605427443509016`*^9}, {3.560550944632382*^9, 3.5605509458123837`*^9}, {
   3.5605509793324304`*^9, 3.5605509793324304`*^9}, {3.560556428784561*^9, 
   3.5605564305945635`*^9}, {3.560560165737293*^9, 3.5605601664072933`*^9}, {
   3.5605604376776733`*^9, 3.5605604478776875`*^9}, 3.5635749491993723`*^9, 
   3.5635760408109007`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 
   RowBox[{"n", ">", "1"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"-", "2"}], "\[LessEqual]", "m", "<", 
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978119614426117`*^9, 
   3.4978119879026484`*^9}, {3.4978142081057568`*^9, 
   3.4978142300257874`*^9}, {3.4978148508166566`*^9, 3.49781485307666*^9}, {
   3.5532998699190226`*^9, 3.553299873909028*^9}, {3.560543277171647*^9, 
   3.5605432814016533`*^9}, {3.5605437496623087`*^9, 3.560543760582324*^9}, {
   3.5605614461690855`*^9, 3.5605614461690855`*^9}, {3.560561617419325*^9, 
   3.560561617419325*^9}, {3.560565492320952*^9, 3.560565492320952*^9}, {
   3.5606176388117914`*^9, 3.5606176388117914`*^9}, {3.563574949769373*^9, 
   3.563574950329374*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
    SuperscriptBox[
     RowBox[{"Sin", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], ")"}], 
         RowBox[{"m", "+", "1"}]], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}], "n"]}], 
       RowBox[{"d", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"f", " ", "n"}], 
    RowBox[{"d", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], 
      RowBox[{"m", "+", "1"}]], 
     RowBox[{"TrigReduce", "[", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}], 
        RowBox[{"n", "-", "1"}]]}], "]"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, {
   3.4978114755275273`*^9, 3.4978114885575457`*^9}, {3.4978139885554495`*^9, 
   3.49781400341547*^9}, 3.4978141842457237`*^9, {3.4978450113076897`*^9, 
   3.497845040857731*^9}, {3.5533071155191665`*^9, 3.553307143769206*^9}, {
   3.5605432072915497`*^9, 3.560543218351565*^9}, {3.560543289821665*^9, 
   3.5605433617617655`*^9}, {3.560543743872301*^9, 3.560543793932371*^9}, {
   3.5605614512990923`*^9, 3.560561484309139*^9}, {3.5605615241191945`*^9, 
   3.560561525739197*^9}, {3.5606128519110875`*^9, 3.560612888941139*^9}, {
   3.5606129262111917`*^9, 3.56061294656122*^9}, {3.5606129883112783`*^9, 
   3.5606129888212795`*^9}, {3.563574950999375*^9, 3.5635749522693768`*^9}, {
   3.6739260859572945`*^9, 3.673926085977294*^9}, 3.6739279880621986`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"sin", "[", 
       RowBox[{"e_.", "+", 
        RowBox[{"f_.", "*", "x_"}]}], "]"}], "^", "n_"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", "*", "x"}]}], "]"}], "^", "n"}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"f", "*", 
     RowBox[{"n", "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"ExpandTrigReduce", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"c", "+", 
            RowBox[{"d", "*", "x"}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"m", "+", "1"}], ")"}]}], ",", 
         RowBox[{
          RowBox[{"Cos", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}], "*", 
          RowBox[{
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}], "^", 
           RowBox[{"(", 
            RowBox[{"n", "-", "1"}], ")"}]}]}], ",", "x"}], "]"}], ",", "x"}],
       "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d", ",", "e", ",", "f", ",", "m"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"n", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"GeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "2"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 
   3.497811129647043*^9, 3.497811455437499*^9, 3.4978130018340683`*^9, 
   3.4978139290053663`*^9, 3.5171906797970753`*^9, {3.554686466888367*^9, 
   3.5546864692383704`*^9}, {3.554686685178673*^9, 3.554686689788679*^9}, {
   3.560543381921794*^9, 3.56054350769197*^9}, {3.5605435622020464`*^9, 
   3.560543595642093*^9}, {3.5605438140523987`*^9, 3.5605438385424333`*^9}, {
   3.5605438773024874`*^9, 3.560543892542509*^9}, {3.560561581769275*^9, 
   3.5605615848392797`*^9}, {3.5605616952394342`*^9, 3.560561714399461*^9}, {
   3.5605618673996754`*^9, 3.5605618743496847`*^9}, {3.560562126080037*^9, 
   3.560562131050044*^9}, {3.560562686000821*^9, 3.5605627146408615`*^9}, {
   3.5605631709716015`*^9, 3.5605631740216055`*^9}, {3.560563615172223*^9, 
   3.560563633092248*^9}, {3.560564547326028*^9, 3.5605645508760333`*^9}, 
   3.560565448930891*^9, {3.5605680076944733`*^9, 3.56056809113459*^9}, 
   3.5606131489915037`*^9, 3.560613719952303*^9, {3.560613835892465*^9, 
   3.5606138416124735`*^9}, {3.560614042162754*^9, 3.560614042412754*^9}, {
   3.5606141159628572`*^9, 3.5606141230028667`*^9}, {3.5606147521477504`*^9, 
   3.560614784047795*^9}, {3.5606148204178457`*^9, 3.560614824877852*^9}, {
   3.5606165693002944`*^9, 3.5606165868203187`*^9}, {3.5635749535293784`*^9, 
   3.5635749703494015`*^9}, 3.5635752351197724`*^9, {3.5635759915108314`*^9, 
   3.563575999790843*^9}, {3.673926114454335*^9, 3.6739261442753773`*^9}, 
   3.6739263957117357`*^9, 3.6739279919842052`*^9, 3.6970871171461*^9, {
   3.7153702677363133`*^9, 3.71537031051976*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", ">", "1"}], " ", "\[And]", " ", 
       RowBox[{"m", "<", 
        RowBox[{"-", "2"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.5532994983585024`*^9, 
   3.55329951066852*^9}, 3.553299691538773*^9, {3.5532997835089016`*^9, 
   3.5532997855189047`*^9}, {3.5532999463091297`*^9, 
   3.5532999463091297`*^9}, {3.5533053939267564`*^9, 3.5533054003967657`*^9}, 
   3.5533078568902044`*^9, 3.560538406990285*^9, {3.56054211880328*^9, 
   3.560542128568897*^9}, {3.5605421916398077`*^9, 3.5605421988782206`*^9}, {
   3.5605422638055344`*^9, 3.5605422640395346`*^9}, {3.560542709250852*^9, 
   3.5605427237808723`*^9}, {3.5605452613144255`*^9, 
   3.5605452613144255`*^9}, {3.5605509402723756`*^9, 
   3.5605509736424227`*^9}, {3.5605564221845517`*^9, 3.5605564252045555`*^9}, 
   3.560560686708022*^9, 3.560561038908515*^9, {3.560618143482498*^9, 
   3.5606181444224997`*^9}, {3.5606182044525833`*^9, 
   3.5606182044525833`*^9}, {3.5635749756494093`*^9, 3.563574976819411*^9}, {
   3.5635761312310266`*^9, 3.5635761321510286`*^9}, 3.590637904474301*^9, {
   3.6735672414295273`*^9, 3.673567241630539*^9}, 3.6739260859972944`*^9, 
   3.6739281955374937`*^9, 3.673929012777748*^9, 3.6740559837243843`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.638.1", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 
   3.497810452426095*^9, 3.4978120457827296`*^9, 3.497814519586193*^9, 
   3.4978147490865145`*^9, 3.497815269747243*^9, 3.4978154214374557`*^9, 
   3.5605426778208084`*^9}],

Cell["Reference: G&R 2.638.2", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 
   3.497810452426095*^9, 3.4978120457827296`*^9, 3.497814519586193*^9, 
   3.4978147490865145`*^9, 3.497815269747243*^9, 3.4978154214374557`*^9, {
   3.4979844118186054`*^9, 3.497984412083806*^9}, 3.560542680540812*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", ">", "1"}], " ", "\[And]", " ", 
   RowBox[{"m", "<", 
    RowBox[{"-", "2"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978119614426117`*^9, 
   3.4978119879026484`*^9}, {3.4978142081057568`*^9, 
   3.4978142300257874`*^9}, {3.497814551106237*^9, 3.4978145682762613`*^9}, {
   3.4978146024663086`*^9, 3.4978146072663155`*^9}, {3.497814842496645*^9, 
   3.4978148883467093`*^9}, {3.4978154312274694`*^9, 
   3.4978154608075104`*^9}, {3.55329993229911*^9, 3.553299940089121*^9}, {
   3.560542268235942*^9, 3.560542279374362*^9}, {3.5605427443509016`*^9, 
   3.5605427443509016`*^9}, {3.560550944632382*^9, 3.5605509458123837`*^9}, {
   3.5605509793324304`*^9, 3.5605509793324304`*^9}, {3.560556428784561*^9, 
   3.5605564305945635`*^9}, {3.5606183938328485`*^9, 
   3.5606183938328485`*^9}, {3.563574979099414*^9, 3.5635749796294146`*^9}, {
   3.563576139841039*^9, 3.56357614065104*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], ")"}], 
         RowBox[{"m", "+", "1"}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"]}], 
       RowBox[{"d", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  FractionBox[
   RowBox[{"b", " ", "f", " ", "n", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], 
     RowBox[{"m", "+", "2"}]], " ", 
    RowBox[{"Cos", "[", 
     RowBox[{"e", "+", 
      RowBox[{"f", " ", "x"}]}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
     RowBox[{"n", "-", "1"}]]}], 
   RowBox[{
    SuperscriptBox["d", "2"], 
    RowBox[{"(", 
     RowBox[{"m", "+", "1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"m", "+", "2"}], ")"}]}]], "-", "\[IndentingNewLine]", 
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["f", "2"], 
     SuperscriptBox["n", "2"]}], 
    RowBox[{
     SuperscriptBox["d", "2"], 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "2"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], 
      RowBox[{"m", "+", "2"}]], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["b", "2"], " ", 
     SuperscriptBox["f", "2"], "n", " ", 
     RowBox[{"(", 
      RowBox[{"n", "-", "1"}], ")"}]}], 
    RowBox[{
     SuperscriptBox["d", "2"], 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"m", "+", "2"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], 
      RowBox[{"m", "+", "2"}]], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"n", "-", "2"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, 
   3.497810535736212*^9, {3.497812078252775*^9, 3.497812093972797*^9}, 
   3.497814621316335*^9, 3.497814652296379*^9, {3.4978148058565936`*^9, 
   3.4978148214266157`*^9}, {3.497815400257426*^9, 3.4978154119374423`*^9}, {
   3.497845142277873*^9, 3.4978451542978897`*^9}, {3.553307250759356*^9, 
   3.5533072624893723`*^9}, {3.5605421382409143`*^9, 3.560542156149745*^9}, {
   3.560542283118368*^9, 3.560542363364909*^9}, 3.5605426451407623`*^9, {
   3.563574981029417*^9, 3.5635749836294203`*^9}, {3.6739260860172944`*^9, 
   3.6739260860572944`*^9}, {3.673928001039218*^9, 3.67392800224922*^9}, {
   3.67392850779694*^9, 3.6739285561210084`*^9}, {3.6739290127877483`*^9, 
   3.673929012797748*^9}, {3.6739291578569555`*^9, 3.673929159096957*^9}, {
   3.6739294749274096`*^9, 3.6739294862904263`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "n"}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n", 
    "  ", 
    RowBox[{"b", "*", "f", "*", "n", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "2"}], ")"}]}], "*", 
     RowBox[{"Cos", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "-", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"d", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "2"}], ")"}]}], ")"}]}]}], " ", "-", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{"f", "^", "2"}], "*", 
     RowBox[{
      RowBox[{"n", "^", "2"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"d", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "2"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "2"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", "n"}]}], ",", 
       "x"}], "]"}]}], " ", "+", " ", "\n", "  ", 
    RowBox[{
     RowBox[{"b", "^", "2"}], "*", 
     RowBox[{"f", "^", "2"}], "*", "n", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"n", "-", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"d", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "2"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "+", "2"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "-", "2"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"n", ",", "1"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 
   3.497810442686082*^9, 3.49781112699704*^9, 3.497812038232719*^9, 
   3.497813004784072*^9, 3.4978145150861864`*^9, 3.497814742666505*^9, 
   3.4978153515773573`*^9, 3.5171906798282757`*^9, {3.554686478228383*^9, 
   3.554686479448385*^9}, {3.5546867029486976`*^9, 3.5546867063187027`*^9}, {
   3.5605427542809153`*^9, 3.560542867171073*^9}, {3.5605429645612097`*^9, 
   3.56054297886123*^9}, 3.560543032901305*^9, {3.560550949812389*^9, 
   3.560550953542394*^9}, {3.560556433284567*^9, 3.5605564353645697`*^9}, {
   3.560618407982868*^9, 3.56061842334289*^9}, {3.5635749843394213`*^9, 
   3.563574988749428*^9}, {3.5635761786010933`*^9, 3.563576185491103*^9}, {
   3.673926114514335*^9, 3.6739261442853775`*^9}, 3.673926395731736*^9, {
   3.6739280062392254`*^9, 3.673928007259227*^9}, 3.673928795430439*^9, 
   3.6739289335196366`*^9, 3.6739290388827853`*^9, 3.673929070582831*^9, {
   3.67392929955416*^9, 3.673929301894163*^9}, {3.6739296668227816`*^9, 
   3.673929681055802*^9}, 3.6970871177571354`*^9, {3.715370346965845*^9, 
   3.715370363097768*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"n", "<", 
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538409034047`*^9, 3.541553841106205*^9}, {3.5415564120531206`*^9, 
   3.5415564206955357`*^9}, 3.5415565488341613`*^9, {3.5415605631516123`*^9, 
   3.5415605860836525`*^9}, {3.541561323247347*^9, 3.5415613234501476`*^9}, 
   3.5416162115728135`*^9, {3.5416507321502776`*^9, 3.541650758140314*^9}, {
   3.541651507451363*^9, 3.5416515078613634`*^9}, {3.5417931532359896`*^9, 
   3.541793163456004*^9}, 3.5605372064786043`*^9, {3.56054318632152*^9, 
   3.560543186801521*^9}, {3.5605454108246346`*^9, 3.560545412054636*^9}, {
   3.5635749968494387`*^9, 3.5635749972494397`*^9}, 3.5906379286343346`*^9, {
   3.6735672424245844`*^9, 3.6735672426485972`*^9}, 3.6739260860772943`*^9, 
   3.6739281990274982`*^9, 3.673929012807748*^9, 3.6740559846759853`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", "<", 
        RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
       RowBox[{"n", "\[NotEqual]", 
        RowBox[{"-", "2"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.5532994983585024`*^9, 
   3.55329951066852*^9}, 3.553299686708766*^9, {3.5532997782788944`*^9, 
   3.5532997798488965`*^9}, {3.5532999272391033`*^9, 3.5532999272391033`*^9}, 
   3.5533054874368873`*^9, {3.5533080740205083`*^9, 3.5533080744805093`*^9}, {
   3.5533081305805874`*^9, 3.5533081318305893`*^9}, 3.560538409920289*^9, {
   3.5605442912630672`*^9, 3.5605443160331016`*^9}, 3.560544406283228*^9, {
   3.560544918103945*^9, 3.560544927593958*^9}, {3.560545056164138*^9, 
   3.5605450563541384`*^9}, 3.560545413224638*^9, {3.5635749978594403`*^9, 
   3.563574998949442*^9}, 3.590637929604336*^9, {3.673567243539648*^9, 
   3.67356724374766*^9}, 3.6739260860872946`*^9, 3.673928202737504*^9, 
   3.673929012817748*^9, 3.674055985393587*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Reference: G&R 2.643.1 with ",
 Cell[BoxData[
  RowBox[{"m", "\[Rule]", "1"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 
   3.497810452426095*^9, 3.4978120457827296`*^9, 3.497814519586193*^9, 
   3.4978151296270466`*^9, {3.4978151984471436`*^9, 3.497815198947144*^9}, {
   3.497815245177209*^9, 3.4978152639572353`*^9}, 3.498239518301781*^9, {
   3.4990388321634474`*^9, 3.4990388321634474`*^9}, {3.5532998961890593`*^9, 
   3.5532998969090605`*^9}, {3.560544882613895*^9, 3.560544905543927*^9}, {
   3.5635762915212517`*^9, 3.56357630466127*^9}}],

Cell[TextData[{
 "Reference: G&R 2.643.2 ",
 "with ",
 Cell[BoxData[
  RowBox[{"m", "\[Rule]", "1"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 
   3.497810452426095*^9, 3.4978120457827296`*^9, 3.497814519586193*^9, 
   3.4978151296270466`*^9, {3.4978151984471436`*^9, 3.497815198947144*^9}, {
   3.497815245177209*^9, 3.4978152639572353`*^9}, {3.4979843469224916`*^9, 
   3.4979843472656918`*^9}, {3.4990389749348984`*^9, 
   3.4990389749348984`*^9}, {3.5532998920590534`*^9, 
   3.5532998999490647`*^9}, {3.560544888313903*^9, 3.560544911793936*^9}, 
   3.563576310291278*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "<", 
    RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
   RowBox[{"n", "\[NotEqual]", 
    RowBox[{"-", "2"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978119614426117`*^9, 
   3.4978119879026484`*^9}, {3.4978142081057568`*^9, 
   3.4978142300257874`*^9}, {3.497814551106237*^9, 3.4978145682762613`*^9}, {
   3.4978146024663086`*^9, 3.4978146072663155`*^9}, {3.497814842496645*^9, 
   3.4978148883467093`*^9}, {3.55329991760909*^9, 3.5532999211490946`*^9}, {
   3.560544323963113*^9, 3.560544323963113*^9}, {3.5605449351739683`*^9, 
   3.5605449351739683`*^9}, {3.5635750036094484`*^9, 3.5635750042394495`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], ")"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
         RowBox[{"n", "+", "1"}]]}], 
       RowBox[{"b", " ", "f", " ", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  FractionBox[
   RowBox[{"d", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
     RowBox[{"n", "+", "2"}]]}], 
   RowBox[{
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["f", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"n", "+", "1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"n", "+", "2"}], ")"}]}]], "+", 
  RowBox[{
   FractionBox[
    RowBox[{"n", "+", "2"}], 
    RowBox[{
     SuperscriptBox["b", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"n", "+", "2"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, 
   3.497810535736212*^9, {3.497812078252775*^9, 3.497812093972797*^9}, 
   3.497814621316335*^9, 3.497814652296379*^9, {3.4978148058565936`*^9, 
   3.4978148214266157`*^9}, {3.5533073270894628`*^9, 
   3.5533073394594803`*^9}, {3.5605443472431455`*^9, 
   3.5605444506732903`*^9}, {3.560544941993978*^9, 3.560544980424032*^9}, {
   3.563575006439452*^9, 3.5635750104594584`*^9}, {3.6739260861172943`*^9, 
   3.673926086147294*^9}, {3.6739280125592337`*^9, 3.673928013069235*^9}, {
   3.6739285715310297`*^9, 3.673928621545102*^9}, 3.6739288096614594`*^9, {
   3.6739290128277483`*^9, 3.673929012837748*^9}, {3.673929168553971*^9, 
   3.6739291702939734`*^9}, {3.6739294971804414`*^9, 3.6739295061694546`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"c_.", "+", 
       RowBox[{"d_.", "*", "x_"}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", "*", "x"}]}], ")"}], "*", 
     RowBox[{"Cos", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "+", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "f", "*", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", "\n", "  ", 
    RowBox[{"d", "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "+", "2"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"b", "^", "2"}], "*", 
        RowBox[{"f", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"n", "+", "2"}], ")"}]}], ")"}]}]}], " ", "+", "\n", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"n", "+", "2"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"b", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], ")"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "+", "2"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"n", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"n", ",", 
      RowBox[{"-", "2"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 
   3.497810442686082*^9, 3.49781112699704*^9, 3.497812038232719*^9, 
   3.497813004784072*^9, 3.4978145150861864`*^9, 3.497814742666505*^9, {
   3.4990387261924615`*^9, 3.499038727643264*^9}, 3.5171906798126755`*^9, {
   3.5546864934584045`*^9, 3.5546864958484077`*^9}, {3.5546867335187407`*^9, 
   3.554686737368746*^9}, {3.56054447899333*^9, 3.5605445974734955`*^9}, {
   3.5605446340235467`*^9, 3.5605446621735864`*^9}, {3.5605449901240454`*^9, 
   3.5605450338041067`*^9}, {3.56357501190946*^9, 3.5635750160094657`*^9}, {
   3.6739261145943356`*^9, 3.673926127911354*^9}, {3.673926375001706*^9, 
   3.673926378391711*^9}, {3.673928014209236*^9, 3.673928015529238*^9}, 
   3.673928418848813*^9, 3.6739287978904424`*^9, 3.673928935479639*^9, 
   3.6739290388927855`*^9, 3.673929070602831*^9, {3.673929309064173*^9, 
   3.6739293112341766`*^9}, {3.673929711868846*^9, 3.673929727165868*^9}, 
   3.6970871183631697`*^9, {3.7153703716722584`*^9, 3.7153703880611954`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], " ", Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"n", "<", 
        RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
       RowBox[{"n", "\[NotEqual]", 
        RowBox[{"-", "2"}]}], " ", "\[And]", " ", 
       RowBox[{"m", ">", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193415804486094`*^9, 
   3.5193415824298124`*^9}, {3.5193459537101994`*^9, 
   3.5193459567210045`*^9}, {3.5193514074002457`*^9, 
   3.5193514076802464`*^9}, {3.5194037987985263`*^9, 3.519403799124545*^9}, 
   3.519410735765964*^9, {3.5233155477729936`*^9, 3.5233155497329965`*^9}, {
   3.5233157343632545`*^9, 3.5233157343632545`*^9}, 3.5239204163859615`*^9, {
   3.5239209756969433`*^9, 3.523920976851345*^9}, {3.5239210574690866`*^9, 
   3.5239210738491154`*^9}, {3.529529514995768*^9, 3.52952953897301*^9}, {
   3.529530096003188*^9, 3.5295300961903887`*^9}, 3.534007429411028*^9, {
   3.5415552865111437`*^9, 3.541555295262759*^9}, 3.5416244798324237`*^9, {
   3.5416246450471644`*^9, 3.541624690056343*^9}, 3.541626366779134*^9, 
   3.541628901025448*^9, 3.5416290724956875`*^9, 3.5417936736567183`*^9, {
   3.541801799109347*^9, 3.5418018093593607`*^9}, 3.5418018795094595`*^9, 
   3.541801925819524*^9, {3.5418024417002463`*^9, 3.5418024419302464`*^9}, {
   3.5418024734002905`*^9, 3.5418024867203093`*^9}, {3.541804026542465*^9, 
   3.541804026542465*^9}, {3.5418051959141026`*^9, 3.5418051961241026`*^9}, {
   3.5418055896246533`*^9, 3.5418055898246536`*^9}, {3.541807928007927*^9, 
   3.5418079282179275`*^9}, {3.541816058189309*^9, 3.54181605834931*^9}, {
   3.541895620942338*^9, 3.5418956211823387`*^9}, {3.5532994983585024`*^9, 
   3.55329951066852*^9}, 3.553299686708766*^9, {3.5532997782788944`*^9, 
   3.5532997798488965`*^9}, {3.5532999272391033`*^9, 3.5532999272391033`*^9}, 
   3.5533054874368873`*^9, {3.5533080740205083`*^9, 3.5533080744805093`*^9}, {
   3.5533081305805874`*^9, 3.5533081318305893`*^9}, 3.560538409920289*^9, {
   3.5605442912630672`*^9, 3.5605443160331016`*^9}, 3.560544406283228*^9, 
   3.560545416324642*^9, {3.560550882102294*^9, 3.5605508829522953`*^9}, {
   3.563575020259472*^9, 3.563575021179473*^9}, 3.5906379308943377`*^9, {
   3.673567244707715*^9, 3.6735672449227276`*^9}, 3.6739260861672945`*^9, 
   3.673928206257509*^9, 3.673929012837748*^9, 3.6740559859395876`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.643.1", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 
   3.497810452426095*^9, 3.4978120457827296`*^9, 3.497814519586193*^9, 
   3.4978147490865145`*^9, 3.497815269747243*^9, 3.5605443259031153`*^9}],

Cell["Reference: G&R 2.643.2", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, 3.497810067935557*^9, 
   3.497810452426095*^9, 3.4978120457827296`*^9, 3.497814519586193*^9, 
   3.4978147490865145`*^9, 3.497815269747243*^9, {3.4979844049389935`*^9, 
   3.4979844059685955`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "<", 
    RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
   RowBox[{"n", "\[NotEqual]", 
    RowBox[{"-", "2"}]}], " ", "\[And]", " ", 
   RowBox[{"m", ">", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, {3.496441972821591*^9, 
   3.4964419754615946`*^9}, 3.4964524321966314`*^9, 3.4965289461639547`*^9, {
   3.4978102518358145`*^9, 3.4978103941360135`*^9}, {3.4978119614426117`*^9, 
   3.4978119879026484`*^9}, {3.4978142081057568`*^9, 
   3.4978142300257874`*^9}, {3.497814551106237*^9, 3.4978145682762613`*^9}, {
   3.4978146024663086`*^9, 3.4978146072663155`*^9}, {3.497814842496645*^9, 
   3.4978148883467093`*^9}, {3.55329991760909*^9, 3.5532999211490946`*^9}, {
   3.560544323963113*^9, 3.560544323963113*^9}, {3.5605508862723*^9, 
   3.560550887072301*^9}, {3.5635750222194743`*^9, 3.5635750224994745`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"b", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
         RowBox[{"n", "+", "1"}]]}], 
       RowBox[{"b", " ", "f", " ", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  FractionBox[
   RowBox[{"d", " ", "m", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], 
     RowBox[{"m", "-", "1"}]], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"b", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
     RowBox[{"n", "+", "2"}]]}], 
   RowBox[{
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["f", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"n", "+", "1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"n", "+", "2"}], ")"}]}]], "+", "\[IndentingNewLine]", 
  RowBox[{
   FractionBox[
    RowBox[{"n", "+", "2"}], 
    RowBox[{
     SuperscriptBox["b", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"n", "+", "2"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["d", "2"], "m", " ", 
     RowBox[{"(", 
      RowBox[{"m", "-", "1"}], ")"}]}], 
    RowBox[{
     SuperscriptBox["b", "2"], " ", 
     SuperscriptBox["f", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"n", "+", "2"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], 
      RowBox[{"m", "-", "2"}]], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], ")"}], 
      RowBox[{"n", "+", "2"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.4978101340656495`*^9, 
   3.4978101470356674`*^9}, {3.497810228295781*^9, 3.497810232715788*^9}, 
   3.497810535736212*^9, {3.497812078252775*^9, 3.497812093972797*^9}, 
   3.497814621316335*^9, 3.497814652296379*^9, {3.4978148058565936`*^9, 
   3.4978148214266157`*^9}, {3.5533073270894628`*^9, 
   3.5533073394594803`*^9}, {3.5605443472431455`*^9, 
   3.5605444506732903`*^9}, {3.563575022939475*^9, 3.563575025679479*^9}, {
   3.6739260861872945`*^9, 3.6739260862372947`*^9}, {3.6739280178492413`*^9, 
   3.6739280187792425`*^9}, {3.673928634955121*^9, 3.673928696206298*^9}, {
   3.6739290128477483`*^9, 3.6739290128677483`*^9}, {3.673929174393979*^9, 
   3.6739291767439823`*^9}, {3.6739295225584784`*^9, 3.6739295384105005`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}], ")"}], "^", "n_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
     RowBox[{"Cos", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "+", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "f", "*", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", "\n", "  ", 
    RowBox[{"d", "*", "m", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"b", "*", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "+", "2"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"b", "^", "2"}], "*", 
        RowBox[{"f", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"n", "+", "2"}], ")"}]}], ")"}]}]}], " ", "+", "\n", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"n", "+", "2"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"b", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "+", "2"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "+", 
    "\n", "  ", 
    RowBox[{
     RowBox[{"d", "^", "2"}], "*", "m", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "-", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"b", "^", "2"}], "*", 
        RowBox[{"f", "^", "2"}], "*", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"n", "+", "2"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "2"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "+", "2"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"n", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"n", ",", 
      RowBox[{"-", "2"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"m", ",", "1"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4978099270853596`*^9, 3.497810062495549*^9, 3.4978101813857155`*^9, 
   3.497810442686082*^9, 3.49781112699704*^9, 3.497812038232719*^9, 
   3.497813004784072*^9, 3.4978145150861864`*^9, 3.497814742666505*^9, {
   3.4990387261924615`*^9, 3.499038727643264*^9}, 3.5171906798126755`*^9, {
   3.5546864934584045`*^9, 3.5546864958484077`*^9}, {3.5546867335187407`*^9, 
   3.554686737368746*^9}, {3.56054447899333*^9, 3.5605445974734955`*^9}, {
   3.5605446340235467`*^9, 3.5605446621735864`*^9}, {3.5605508937423105`*^9, 
   3.560550898552317*^9}, {3.5635750259194794`*^9, 3.563575029419484*^9}, {
   3.6739261146643353`*^9, 3.673926137475368*^9}, 3.673926388741726*^9, {
   3.673928019752245*^9, 3.673928021412247*^9}, 3.673928420018814*^9, 
   3.6739288017704477`*^9, 3.6739289370896416`*^9, 3.6739290389127855`*^9, 
   3.673929070612831*^9, {3.6739293149441814`*^9, 3.673929316854184*^9}, {
   3.673929755876909*^9, 3.6739297742269344`*^9}, 3.697087118941203*^9, {
   3.715370414656717*^9, 3.7153704222941537`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{"n", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"n", "\[Equal]", "1"}], " ", "\[Or]", " ", 
        RowBox[{"m", "\[Element]", 
         SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], " ", "\[Or]", " ", 
        RowBox[{
         RowBox[{
          SuperscriptBox["a", "2"], "-", 
          SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]}], ")"}]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574271745815`*^9, 3.5617574314445877`*^9}, {3.5617576529448977`*^9, 
   3.5617576570749035`*^9}, 3.56175786139519*^9, {3.561758473228546*^9, 
   3.561758473638547*^9}, 3.56175857550869*^9, 3.562030419709583*^9, {
   3.5620860684743896`*^9, 3.56208607337267*^9}, 3.5620872804115334`*^9, {
   3.5620873391216154`*^9, 3.562087339651616*^9}, 3.5635732853579407`*^9, 
   3.590637943714356*^9, {3.6730386961145453`*^9, 3.673038702187893*^9}, {
   3.6739048996594625`*^9, 3.673904899858474*^9}, {3.6741633526551065`*^9, 
   3.674163353902178*^9}, 3.6741637303137074`*^9, {3.674167092275*^9, 
   3.674167106751828*^9}, {3.674167712922499*^9, 3.674167712922499*^9}, {
   3.6741703495243044`*^9, 3.6741703495243044`*^9}, 3.674171773519752*^9, {
   3.6741722507190466`*^9, 3.6741722507190466`*^9}, {3.674237699089997*^9, 
   3.674237699089997*^9}, {3.674239351038473*^9, 3.6742393516584735`*^9}, {
   3.674240238867967*^9, 3.6742402390679674`*^9}, {3.674240830018931*^9, 
   3.674240830018931*^9}, {3.6742428103480234`*^9, 3.6742428376480627`*^9}, 
   3.6742490420000324`*^9, {3.674252561790264*^9, 3.6742525837435026`*^9}, {
   3.6742545123883486`*^9, 3.6742545280819764`*^9}, {3.674254570626251*^9, 
   3.674254576150661*^9}, {3.6742571845043764`*^9, 3.6742572170822334`*^9}, {
   3.674259083173966*^9, 3.6742591071084085`*^9}, 3.6742752673409233`*^9, {
   3.6744479948832116`*^9, 3.6744480044304285`*^9}, {3.674449485912306*^9, 
   3.6744494861803207`*^9}, {3.674450006388075*^9, 3.674450081605377*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.497575979956957*^9, 3.4980702864359283`*^9, 
   3.4980719947257295`*^9, {3.498072604386001*^9, 3.4980726091908092`*^9}, 
   3.4980731625081816`*^9, {3.6742377041110096`*^9, 3.6742377101110177`*^9}, 
   3.6742405200764894`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"n", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"n", "\[Equal]", "1"}], " ", "\[Or]", " ", 
     RowBox[{"m", "\[Element]", 
      SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], " ", "\[Or]", " ", 
     RowBox[{
      RowBox[{
       SuperscriptBox["a", "2"], "-", 
       SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}]}], ")"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.498070802032434*^9, 3.498070811704451*^9}, {
   3.4980708419217043`*^9, 3.498070859549735*^9}, {3.498072042274613*^9, 
   3.498072055285036*^9}, {3.498073052465588*^9, 3.498073079297635*^9}, {
   3.4980732240814896`*^9, 3.4980732251890917`*^9}, {3.515468845970662*^9, 
   3.515468853879876*^9}, {3.555610332540804*^9, 3.5556103410308156`*^9}, {
   3.674167616374977*^9, 3.6741676197541704`*^9}, {3.6741706099872017`*^9, 
   3.6741706099872017`*^9}, {3.6741722516711006`*^9, 
   3.6741722516711006`*^9}, {3.674237702097006*^9, 3.674237702097006*^9}, {
   3.674239358480484*^9, 3.674239358480484*^9}, {3.674240834178937*^9, 
   3.674240834178937*^9}, {3.6742525970055265`*^9, 3.6742525970055265`*^9}, {
   3.6742545927354903`*^9, 3.6742545927354903`*^9}, {3.6742572239774456`*^9, 
   3.6742572239774456`*^9}, {3.6742591349116573`*^9, 
   3.6742591349116573`*^9}, {3.674450086566661*^9, 3.674450086566661*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
       RowBox[{"ExpandIntegrand", "[", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", 
             RowBox[{"Sin", "[", 
              RowBox[{"e", "+", 
               RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], ",", "x"}], 
        "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, {3.498070321988391*^9, 
   3.498070327557601*^9}, 3.4980709163338346`*^9, {3.4980711071777706`*^9, 
   3.498071117738989*^9}, {3.498072713788993*^9, 3.4980727224158087`*^9}, 
   3.498072987569474*^9, {3.498073018332728*^9, 3.4980730264915423`*^9}, {
   3.498073130278525*^9, 3.4980731356917343`*^9}, {3.515468881023924*^9, 
   3.5154689567776566`*^9}, 3.5154690565086317`*^9, {3.555610237740671*^9, 
   3.555610253480693*^9}, {3.5556102959707527`*^9, 3.5556103161007805`*^9}, 
   3.5556105302110806`*^9, 3.5635732853879404`*^9, {3.563577132622429*^9, 
   3.5635771619924707`*^9}, {3.563577635513133*^9, 3.5635776372031355`*^9}, {
   3.6730387220470285`*^9, 3.6730387512346983`*^9}, {3.6730388404328003`*^9, 
   3.6730388477312174`*^9}, {3.673041912616519*^9, 3.6730419367318983`*^9}, {
   3.6739053652340918`*^9, 3.6739053677832375`*^9}, {3.674163793169302*^9, 
   3.6741637942083616`*^9}, 3.674164028543765*^9, {3.674167721488989*^9, 
   3.6741678993331614`*^9}, {3.674168025159358*^9, 3.674168027166473*^9}, {
   3.674170635634669*^9, 3.6741707047606225`*^9}, 3.6741707598307724`*^9, 
   3.6741717749368334`*^9, {3.6741719539690733`*^9, 3.6741719986966314`*^9}, {
   3.6742383991310067`*^9, 3.6742384190340357`*^9}, {3.674238668578492*^9, 
   3.6742386732784986`*^9}, 3.6742397497532597`*^9, {3.6742408496959596`*^9, 
   3.674240907117041*^9}, {3.6742546069003153`*^9, 3.674254697031674*^9}, 
   3.674257261715912*^9, {3.674275269431327*^9, 3.6742752708821297`*^9}, {
   3.6744480052416296`*^9, 3.674448006162031*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"sin", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{"ExpandIntegrand", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}], ",", 
       "x"}], "]"}], ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "m"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"n", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"EqQ", "[", 
       RowBox[{"n", ",", "1"}], "]"}], " ", "||", " ", 
      RowBox[{"IGtQ", "[", 
       RowBox[{"m", ",", "0"}], "]"}], " ", "||", " ", 
      RowBox[{"NeQ", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"a", "^", "2"}], "-", 
         RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}]}], ")"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.498070271459902*^9, 
   3.4980707653567696`*^9, {3.498070972259933*^9, 3.4980709751771383`*^9}, 
   3.4980719640716753`*^9, 3.4980729980058928`*^9, {3.498073376212957*^9, 
   3.4980733779913597`*^9}, {3.5154687911209655`*^9, 
   3.5154688077193947`*^9}, {3.5154688378118477`*^9, 3.51546883901305*^9}, {
   3.5556103662008505`*^9, 3.5556104168009214`*^9}, {3.5556105493411074`*^9, 
   3.5556105525711117`*^9}, 3.5635732853979406`*^9, {3.5635772089125357`*^9, 
   3.5635772275425625`*^9}, {3.6730388763098516`*^9, 
   3.6730389093947444`*^9}, {3.673041998096408*^9, 3.6730420187965918`*^9}, {
   3.6739053798249264`*^9, 3.6739053933507*^9}, {3.6741638258601723`*^9, 
   3.674163869295656*^9}, {3.6741639186324787`*^9, 3.674163966309205*^9}, {
   3.6741680551280727`*^9, 3.6741680689668636`*^9}, 3.6741681217548833`*^9, {
   3.674168189958784*^9, 3.674168196060133*^9}, {3.6741682422697763`*^9, 
   3.6741682436898575`*^9}, {3.674168288388414*^9, 3.6741682909865627`*^9}, 
   3.674170828128679*^9, {3.674171127182784*^9, 3.6741711339451704`*^9}, 
   3.6741717760989*^9, {3.674172044636259*^9, 3.674172093641062*^9}, {
   3.674238803548685*^9, 3.674238816158703*^9}, {3.6742393626704893`*^9, 
   3.6742393697004995`*^9}, {3.6742410365572295`*^9, 
   3.6742410592982645`*^9}, {3.6742526075209446`*^9, 3.674252612746954*^9}, 
   3.6742529649137745`*^9, 3.674254739655949*^9, {3.6742548322759156`*^9, 
   3.6742548348675203`*^9}, 3.6742548749353905`*^9, {3.6742562486978207`*^9, 
   3.674256252817629*^9}, {3.6742572362878675`*^9, 3.67425724906429*^9}, 
   3.674257291374564*^9, 3.6742575902732964`*^9, {3.6742591391860647`*^9, 
   3.674259139404465*^9}, {3.6742752726293325`*^9, 3.674275275016137*^9}, {
   3.674448006739232*^9, 3.6744480079560347`*^9}, {3.674448658651989*^9, 
   3.674448658856001*^9}, {3.6744493968792133`*^9, 3.674449441498765*^9}, 
   3.6970871194892344`*^9, 3.7061388498344116`*^9, {3.715370429903589*^9, 
   3.7153704528529015`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["3.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-", 
        SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
      RowBox[{
       RowBox[{"2", " ", "n"}], "\[Element]", "\[DoubleStruckCapitalZ]"}], 
      " ", "\[And]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"n", ">", "0"}], " ", "\[Or]", " ", 
        RowBox[{"m", "\[Element]", 
         SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}], ")"}]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9, 
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9, 
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9, 
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.5462973285533237`*^9, 
   3.5462973314333277`*^9}, {3.5462974099434376`*^9, 3.546297410253438*^9}, {
   3.5633457359281*^9, 3.5633457362081003`*^9}, {3.56753668477185*^9, 
   3.5675366893118563`*^9}, {3.5675371645025215`*^9, 3.5675371650625224`*^9}, 
   3.5675376358531814`*^9, {3.567540921187781*^9, 3.567540945317815*^9}, {
   3.5675446460861425`*^9, 3.567544710434823*^9}, {3.567544838785164*^9, 
   3.5675448419923477`*^9}, {3.5675459222661357`*^9, 
   3.5675459227321625`*^9}, {3.5676305646094885`*^9, 3.567630564859089*^9}, {
   3.568756711228214*^9, 3.5687567156182203`*^9}, {3.568835891677881*^9, 
   3.5688358944234858`*^9}, {3.5688359490359817`*^9, 
   3.5688359490359817`*^9}, {3.568836276152956*^9, 3.5688362763401566`*^9}, {
   3.568839701927928*^9, 3.5688397021079283`*^9}, {3.568922343639141*^9, 
   3.5689223438591413`*^9}, {3.5689233425005393`*^9, 
   3.5689233427605395`*^9}, {3.568996922480447*^9, 3.568996922636447*^9}, {
   3.569204521202736*^9, 3.569204521452736*^9}, {3.5692080379266634`*^9, 
   3.5692080553766875`*^9}, 3.569208099316749*^9, {3.569208254936967*^9, 
   3.5692082551669674`*^9}, {3.5692084895272956`*^9, 3.5692084895272956`*^9}, 
   3.569259936760928*^9, 3.6735686475789547`*^9, 3.6740544188489256`*^9, 
   3.674054992406539*^9, 3.6740553401374483`*^9, {3.6740558563777585`*^9, 
   3.674055856627359*^9}, {3.6744494901735497`*^9, 3.674449490395562*^9}, {
   3.6972273813352857`*^9, 3.697227385422493*^9}, {3.697228134342252*^9, 
   3.697228137087857*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-", 
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
       " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"n", ">", "0"}], " ", "\[Or]", " ", 
         RowBox[{"m", "\[Element]", 
          SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}], ")"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, 3.5622940305792723`*^9, {3.5622942446095715`*^9, 
   3.562294244919572*^9}, {3.564341532826086*^9, 3.5643415472093115`*^9}, {
   3.5643415952261963`*^9, 3.564341621543442*^9}, {3.5653712427559214`*^9, 
   3.5653712662959547`*^9}, {3.567536711771888*^9, 3.5675367305719137`*^9}, {
   3.567536861132097*^9, 3.5675368736121144`*^9}, {3.5675373448827744`*^9, 
   3.567537359022794*^9}, 3.567537618133157*^9, {3.5675449022087917`*^9, 
   3.567544938338858*^9}, 3.5675454535133247`*^9, 3.568756731398242*^9, {
   3.568835895390687*^9, 3.568835896342289*^9}, {3.5688359541215906`*^9, 
   3.5688359541215906`*^9}, {3.568851625271058*^9, 3.5688516293410635`*^9}, {
   3.569204001072007*^9, 3.569204004992013*^9}, {3.569204303412431*^9, 
   3.569204307292436*^9}, {3.5692045761028123`*^9, 3.569204587352828*^9}, {
   3.569205883784643*^9, 3.5692058902746525`*^9}, {3.5692059270447035`*^9, 
   3.56920593161471*^9}, {3.569208102696754*^9, 3.569208105016757*^9}, 
   3.5692085394373655`*^9, 3.5692599418009357`*^9, {3.5692607135520163`*^9, 
   3.5692607135520163`*^9}, 3.6735686504801207`*^9, 3.674054418895726*^9, 
   3.6740549924377394`*^9, 3.6740553401686487`*^9, 3.697086131911748*^9, {
   3.697227300359143*^9, 3.6972273317503977`*^9}, {3.6972273901649013`*^9, 
   3.6972273920389047`*^9}, {3.697227445787999*^9, 3.6972274478472033`*^9}, {
   3.697251040369935*^9, 3.6972510526536374`*^9}, {3.6972516512948775`*^9, 
   3.6972516745812097`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.497662072225127*^9}],

Cell[TextData[{
 "Basis: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"a", "+", 
    RowBox[{"b", " ", 
     RowBox[{"Sin", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}]}]}], "\[Equal]", 
   RowBox[{"2", " ", "a", " ", 
    SuperscriptBox[
     RowBox[{"Sin", "[", 
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"e", "+", 
          FractionBox[
           RowBox[{"\[Pi]", " ", "a"}], 
           RowBox[{"2", " ", "b"}]]}], ")"}]}], "+", 
       FractionBox[
        RowBox[{"f", " ", "x"}], "2"]}], "]"}], "2"]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 
   3.497662667553373*^9, {3.4982405233131886`*^9, 3.498240529443197*^9}, {
   3.569205362423913*^9, 3.5692053789139366`*^9}, {3.6972510928909388`*^9, 
   3.6972510928909388`*^9}, {3.697251639081179*^9, 3.697251639081179*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-", 
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"n", ">", "0"}], " ", "\[Or]", " ", 
     RowBox[{"m", "\[Element]", 
      SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}], ")"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.497662273761881*^9, 3.497662314743153*^9}, {
   3.4976627174890604`*^9, 3.4976627219194684`*^9}, {3.498240539593211*^9, 
   3.498240539593211*^9}, {3.569205380143938*^9, 3.569205380143938*^9}, {
   3.569260741362055*^9, 3.569260741362055*^9}, {3.6972273372758083`*^9, 
   3.6972273372758083`*^9}, {3.6972273971089134`*^9, 
   3.6972273971089134`*^9}, {3.6972274516244097`*^9, 
   3.6972274516244097`*^9}, {3.6972510614321394`*^9, 
   3.6972510614321394`*^9}, {3.6972516790744667`*^9, 3.6972516790744667`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", " ", "a"}], ")"}], "n"]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"e", "+", 
           FractionBox[
            RowBox[{"\[Pi]", " ", "a"}], 
            RowBox[{"2", " ", "b"}]]}], ")"}]}], "+", 
        FractionBox[
         RowBox[{"f", " ", "x"}], "2"]}], "]"}], 
      RowBox[{"2", " ", "n"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, {
   3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9, 
   3.4976395477133703`*^9}, {3.497662217242982*^9, 3.497662244168629*^9}, 
   3.569259944470939*^9, 3.569259988491001*^9, 3.674054418911326*^9, 
   3.6740545617349787`*^9, 3.674054784087371*^9, {3.6740549924533396`*^9, 
   3.6740549924689393`*^9}, 3.674055340184249*^9, {3.6740554576518555`*^9, 
   3.67405546033506*^9}, {3.697223177421223*^9, 3.6972232098596807`*^9}, 
   3.697251701603755*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"sin", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"2", "*", "a"}], ")"}], "^", "n"}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"1", "/", "2"}], "*", 
           RowBox[{"(", 
            RowBox[{"e", "+", 
             RowBox[{"Pi", "*", 
              RowBox[{"a", "/", 
               RowBox[{"(", 
                RowBox[{"2", "*", "b"}], ")"}]}]}]}], ")"}]}], "+", 
          RowBox[{"f", "*", 
           RowBox[{"x", "/", "2"}]}]}], "]"}], "^", 
        RowBox[{"(", 
         RowBox[{"2", "*", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "m"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "n", "]"}], " ", "&&", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"GtQ", "[", 
       RowBox[{"n", ",", "0"}], "]"}], " ", "||", " ", 
      RowBox[{"IGtQ", "[", 
       RowBox[{"m", ",", "0"}], "]"}]}], ")"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, 
   3.49758349857209*^9, 3.4976394822868557`*^9, 3.4976620538794947`*^9, 
   3.5692049626233535`*^9, 3.5692050254434414`*^9, {3.5692600086810293`*^9, 
   3.5692600409610744`*^9}, {3.569260724612032*^9, 3.569260732032042*^9}, 
   3.6739070712536707`*^9, {3.6740545780078077`*^9, 3.67405459070823*^9}, 
   3.6740546347199078`*^9, 3.6740547878177776`*^9, {3.674055018538585*^9, 
   3.6740550403942237`*^9}, {3.674055372760106*^9, 3.674055374632109*^9}, 
   3.6740554426874294`*^9, 3.6970871200492663`*^9, {3.697223263968576*^9, 
   3.6972232813968067`*^9}, 3.6972272457178464`*^9, {3.697227407921733*^9, 
   3.6972274101213365`*^9}, {3.6972274551812162`*^9, 
   3.6972274570844193`*^9}, {3.6972517066970463`*^9, 3.69725171130431*^9}, 
   3.7061388344243903`*^9, {3.715370473495082*^9, 3.715370494019256*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-", 
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"n", "+", 
         FractionBox["1", "2"]}], "\[Element]", "\[DoubleStruckCapitalZ]"}], 
       " ", "\[And]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"n", ">", "0"}], " ", "\[Or]", " ", 
         RowBox[{"m", "\[Element]", 
          SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}], ")"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, 3.5622940305792723`*^9, {3.5622942446095715`*^9, 
   3.562294244919572*^9}, {3.564341532826086*^9, 3.5643415472093115`*^9}, {
   3.5643415952261963`*^9, 3.564341621543442*^9}, {3.5653712427559214`*^9, 
   3.5653712662959547`*^9}, {3.567536711771888*^9, 3.5675367305719137`*^9}, {
   3.567536861132097*^9, 3.5675368736121144`*^9}, {3.5675373448827744`*^9, 
   3.567537359022794*^9}, 3.567537618133157*^9, {3.5675449022087917`*^9, 
   3.567544938338858*^9}, 3.5675454535133247`*^9, 3.568756731398242*^9, {
   3.568835895390687*^9, 3.568835896342289*^9}, {3.5688359541215906`*^9, 
   3.5688359541215906`*^9}, {3.568851625271058*^9, 3.5688516293410635`*^9}, {
   3.569204001072007*^9, 3.569204004992013*^9}, {3.569204303412431*^9, 
   3.569204307292436*^9}, {3.5692045761028123`*^9, 3.569204587352828*^9}, {
   3.569205883784643*^9, 3.5692058902746525`*^9}, {3.5692059270447035`*^9, 
   3.569205949874736*^9}, {3.5692065015555077`*^9, 3.5692065056055136`*^9}, {
   3.5692083283870697`*^9, 3.5692083304370728`*^9}, 3.5692085431473703`*^9, 
   3.5692602275413356`*^9, {3.5692609332623234`*^9, 3.5692609332623234`*^9}, {
   3.673568623090554*^9, 3.6735686510311522`*^9}, 3.6740544189269257`*^9, 
   3.6740549924845395`*^9, 3.674055340199849*^9, 3.6970861326697917`*^9, {
   3.6972274725756807`*^9, 3.697227477940763*^9}, {3.6972278827626057`*^9, 
   3.6972278903130193`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, {3.497662620893691*^9, 3.497662652733347*^9}, {
   3.673568889235777*^9, 3.673568892373956*^9}}],

Cell[TextData[{
 "Basis: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"e", "+", 
           FractionBox[
            RowBox[{"\[Pi]", " ", "a"}], 
            RowBox[{"2", " ", "b"}]]}], ")"}]}], "+", 
        FractionBox[
         RowBox[{"f", " ", "x"}], "2"]}], "]"}], 
      RowBox[{"2", " ", "n"}]]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, {
   3.4976625130975018`*^9, 3.4976625346879396`*^9}, 3.497662595840047*^9, {
   3.498240558183237*^9, 3.498240558183237*^9}, {3.569205385813946*^9, 
   3.5692053865039473`*^9}, {3.6735689942747846`*^9, 
   3.6735689942747846`*^9}, {3.674054418958126*^9, 3.674054418958126*^9}, {
   3.674054641351919*^9, 3.674054641351919*^9}, {3.674054798815797*^9, 
   3.674054798815797*^9}, {3.674055340215449*^9, 3.674055340215449*^9}, {
   3.6740555167663603`*^9, 3.674055519792765*^9}, {3.6972234313234715`*^9, 
   3.6972234313234715`*^9}, {3.697252772739021*^9, 3.697252772739021*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-", 
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"n", "+", 
     FractionBox["1", "2"]}], "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", 
   "\[And]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"n", ">", "0"}], " ", "\[Or]", " ", 
     RowBox[{"m", "\[Element]", 
      SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}], ")"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.497662273761881*^9, 3.497662314743153*^9}, {
   3.49766243823297*^9, 3.4976624525849953`*^9}, {3.4982405631832438`*^9, 
   3.4982405631832438`*^9}, {3.569205387943949*^9, 3.569205387943949*^9}, {
   3.569260945572341*^9, 3.569260945572341*^9}, {3.697227482185828*^9, 
   3.697227482185828*^9}, {3.697227900391637*^9, 3.697227900391637*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"2", " ", "a"}], ")"}], 
        RowBox[{"IntPart", "[", "n", "]"}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], 
        RowBox[{"FracPart", "[", "n", "]"}]]}], 
      SuperscriptBox[
       RowBox[{"Sin", "[", 
        RowBox[{
         FractionBox["e", "2"], "+", 
         FractionBox[
          RowBox[{"a", " ", "\[Pi]"}], 
          RowBox[{"4", " ", "b"}]], "+", 
         FractionBox[
          RowBox[{"f", " ", "x"}], "2"]}], "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"FracPart", "[", "n", "]"}]}]]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"Sin", "[", 
       RowBox[{
        FractionBox["e", "2"], "+", 
        FractionBox[
         RowBox[{"a", " ", "\[Pi]"}], 
         RowBox[{"4", " ", "b"}]], "+", 
        FractionBox[
         RowBox[{"f", " ", "x"}], "2"]}], "]"}], 
      RowBox[{"2", " ", "n"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, {
   3.4976623833052735`*^9, 3.4976624037569094`*^9}, {3.5692602281513367`*^9, 
   3.5692602287313375`*^9}, {3.673568873342868*^9, 3.673568879102197*^9}, {
   3.6740544189737263`*^9, 3.6740544189737263`*^9}, {3.674054642490721*^9, 
   3.674054643426723*^9}, {3.674054804511807*^9, 3.6740548089890146`*^9}, {
   3.6740549925001397`*^9, 3.6740549925157394`*^9}, {3.6740553402310486`*^9, 
   3.674055340246649*^9}, {3.6740554793046937`*^9, 3.674055480022295*^9}, {
   3.697223336286704*^9, 3.6972233661511564`*^9}, {3.697252784394687*^9, 
   3.697252787134844*^9}, {3.6974086403453836`*^9, 3.6974086433145533`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"sin", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"2", "*", "a"}], ")"}], "^", 
     RowBox[{"IntPart", "[", "n", "]"}]}], "*", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
      RowBox[{"FracPart", "[", "n", "]"}]}], "/", 
     RowBox[{
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{"e", "/", "2"}], "+", 
        RowBox[{"a", "*", 
         RowBox[{"Pi", "/", 
          RowBox[{"(", 
           RowBox[{"4", "*", "b"}], ")"}]}]}], "+", 
        RowBox[{"f", "*", 
         RowBox[{"x", "/", "2"}]}]}], "]"}], "^", 
      RowBox[{"(", 
       RowBox[{"2", "*", 
        RowBox[{"FracPart", "[", "n", "]"}]}], ")"}]}]}], "*", "\n", "    ", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{
          RowBox[{"e", "/", "2"}], "+", 
          RowBox[{"a", "*", 
           RowBox[{"Pi", "/", 
            RowBox[{"(", 
             RowBox[{"4", "*", "b"}], ")"}]}]}], "+", 
          RowBox[{"f", "*", 
           RowBox[{"x", "/", "2"}]}]}], "]"}], "^", 
        RowBox[{"(", 
         RowBox[{"2", "*", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "m"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"n", "+", 
      RowBox[{"1", "/", "2"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"GtQ", "[", 
       RowBox[{"n", ",", "0"}], "]"}], " ", "||", " ", 
      RowBox[{"IGtQ", "[", 
       RowBox[{"m", ",", "0"}], "]"}]}], ")"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976620452370796`*^9, 3.497662356878827*^9, {
   3.497662464394216*^9, 3.497662468965024*^9}, {3.497844840747451*^9, 
   3.4978448419874525`*^9}, {3.5692050357634563`*^9, 3.569205050003476*^9}, 
   3.569260263221386*^9, {3.56926029485143*^9, 3.5692603155214586`*^9}, {
   3.569260953102351*^9, 3.569260964812368*^9}, {3.673569030456854*^9, 
   3.6735690625696907`*^9}, 3.673569116558779*^9, 3.674054442143767*^9, 
   3.6740546030322514`*^9, {3.6740546471883297`*^9, 3.6740546484207315`*^9}, {
   3.674054815743827*^9, 3.674054826166645*^9}, 3.674055018569785*^9, 
   3.674055053424247*^9, {3.67405535796828*^9, 3.674055384101326*^9}, {
   3.674055446525036*^9, 3.674055446540636*^9}, 3.697087120571296*^9, {
   3.6972233453367195`*^9, 3.697223356354339*^9}, {3.6972276752754393`*^9, 
   3.6972276766014414`*^9}, {3.6972279076612496`*^9, 
   3.6972279132636595`*^9}, {3.697252831320371*^9, 3.697252838972809*^9}, {
   3.697408611100711*^9, 3.6974086193811846`*^9}, 3.7061388344443903`*^9, 
   3.7153704735220833`*^9, 3.7153705128773346`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["x:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-", 
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
       " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"n", ">", "0"}], " ", "\[Or]", " ", 
         RowBox[{"m", "\[Element]", 
          SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}], ")"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, 3.5622940305792723`*^9, {3.5622942446095715`*^9, 
   3.562294244919572*^9}, {3.564341532826086*^9, 3.5643415472093115`*^9}, {
   3.5643415952261963`*^9, 3.564341621543442*^9}, {3.5653712427559214`*^9, 
   3.5653712662959547`*^9}, {3.567536711771888*^9, 3.5675367305719137`*^9}, {
   3.567536861132097*^9, 3.5675368736121144`*^9}, {3.5675373448827744`*^9, 
   3.567537359022794*^9}, 3.567537618133157*^9, {3.5675449022087917`*^9, 
   3.567544938338858*^9}, 3.5675454535133247`*^9, 3.568756731398242*^9, {
   3.568835895390687*^9, 3.568835896342289*^9}, {3.5688359541215906`*^9, 
   3.5688359541215906`*^9}, {3.568851625271058*^9, 3.5688516293410635`*^9}, {
   3.569204001072007*^9, 3.569204004992013*^9}, {3.569204303412431*^9, 
   3.569204307292436*^9}, {3.5692045761028123`*^9, 3.569204587352828*^9}, {
   3.569205883784643*^9, 3.5692058902746525`*^9}, {3.5692059270447035`*^9, 
   3.56920593161471*^9}, {3.569208102696754*^9, 3.569208105016757*^9}, 
   3.5692085394373655`*^9, 3.5692599418009357`*^9, {3.5692607135520163`*^9, 
   3.5692607135520163`*^9}, 3.6735686504801207`*^9, 3.674054418895726*^9, 
   3.6740549924377394`*^9, 3.6740553401686487`*^9, 3.697086131911748*^9, {
   3.697227300359143*^9, 3.6972273317503977`*^9}, {3.6972273901649013`*^9, 
   3.6972273920389047`*^9}, {3.697227445787999*^9, 3.6972274478472033`*^9}, {
   3.6972510058819623`*^9, 3.6972510061189756`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic simplification", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, 3.497662072225127*^9}],

Cell[TextData[{
 "Basis: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"a", "+", 
    RowBox[{"b", " ", 
     RowBox[{"Sin", "[", "z", "]"}]}]}], "\[Equal]", 
   RowBox[{"2", " ", "a", " ", 
    SuperscriptBox[
     RowBox[{"Cos", "[", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"\[Pi]", " ", "a"}], 
         RowBox[{"4", " ", "b"}]]}], "+", 
       FractionBox["z", "2"]}], "]"}], "2"]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 
   3.497662667553373*^9, {3.4982405233131886`*^9, 3.498240529443197*^9}, {
   3.569205362423913*^9, 3.5692053789139366`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-", 
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{"n", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"n", ">", "0"}], " ", "\[Or]", " ", 
     RowBox[{"m", "\[Element]", 
      SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}], ")"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.497662273761881*^9, 3.497662314743153*^9}, {
   3.4976627174890604`*^9, 3.4976627219194684`*^9}, {3.498240539593211*^9, 
   3.498240539593211*^9}, {3.569205380143938*^9, 3.569205380143938*^9}, {
   3.569260741362055*^9, 3.569260741362055*^9}, {3.6972273372758083`*^9, 
   3.6972273372758083`*^9}, {3.6972273971089134`*^9, 
   3.6972273971089134`*^9}, {3.6972274516244097`*^9, 3.6972274516244097`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", " ", "a"}], ")"}], "n"]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"Cos", "[", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"e", "-", 
           FractionBox[
            RowBox[{"\[Pi]", " ", "a"}], 
            RowBox[{"2", " ", "b"}]]}], ")"}]}], "+", 
        FractionBox[
         RowBox[{"f", " ", "x"}], "2"]}], "]"}], 
      RowBox[{"2", " ", "n"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.49644160092107*^9, 
   3.496441663571158*^9, {3.496528814953771*^9, 3.4965288223737817`*^9}, 
   3.497576045657049*^9, 3.497576089857111*^9, 3.4975776169418545`*^9, {
   3.497577677171939*^9, 3.497577691381959*^9}, {3.4976395112561064`*^9, 
   3.4976395477133703`*^9}, {3.497662217242982*^9, 3.497662244168629*^9}, 
   3.569259944470939*^9, 3.569259988491001*^9, 3.674054418911326*^9, 
   3.6740545617349787`*^9, 3.674054784087371*^9, {3.6740549924533396`*^9, 
   3.6740549924689393`*^9}, 3.674055340184249*^9, {3.6740554576518555`*^9, 
   3.67405546033506*^9}, {3.697223177421223*^9, 3.6972232098596807`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c_.", "+", 
         RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a_", "+", 
         RowBox[{"b_.", "*", 
          RowBox[{"sin", "[", 
           RowBox[{"e_.", "+", 
            RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_."}]}], 
     ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", "*", "a"}], ")"}], "^", "n"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{
         RowBox[{"Cos", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], "*", 
            RowBox[{"(", 
             RowBox[{"e", "-", 
              RowBox[{"Pi", "*", 
               RowBox[{"a", "/", 
                RowBox[{"(", 
                 RowBox[{"2", "*", "b"}], ")"}]}]}]}], ")"}]}], "+", 
           RowBox[{"f", "*", 
            RowBox[{"x", "/", "2"}]}]}], "]"}], "^", 
         RowBox[{"(", 
          RowBox[{"2", "*", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
    "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "m"}], 
        "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
     RowBox[{"EqQ", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"a", "^", "2"}], "-", 
        RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
     RowBox[{"IntegerQ", "[", "n", "]"}], " ", "&&", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"GtQ", "[", 
        RowBox[{"n", ",", "0"}], "]"}], " ", "||", " ", 
       RowBox[{"IGtQ", "[", 
        RowBox[{"m", ",", "0"}], "]"}]}], ")"}]}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.4964415782510386`*^9, 
   3.4965287890937347`*^9, 3.4975759366868963`*^9, 3.497577547811758*^9, 
   3.49758349857209*^9, 3.4976394822868557`*^9, 3.4976620538794947`*^9, 
   3.5692049626233535`*^9, 3.5692050254434414`*^9, {3.5692600086810293`*^9, 
   3.5692600409610744`*^9}, {3.569260724612032*^9, 3.569260732032042*^9}, 
   3.6739070712536707`*^9, {3.6740545780078077`*^9, 3.67405459070823*^9}, 
   3.6740546347199078`*^9, 3.6740547878177776`*^9, {3.674055018538585*^9, 
   3.6740550403942237`*^9}, {3.674055372760106*^9, 3.674055374632109*^9}, 
   3.6740554426874294`*^9, 3.6970871200492663`*^9, {3.697223263968576*^9, 
   3.6972232813968067`*^9}, 3.6972272457178464`*^9, {3.697227407921733*^9, 
   3.6972274101213365`*^9}, {3.6972274551812162`*^9, 
   3.6972274570844193`*^9}, {3.6972510098201876`*^9, 3.6972510139134216`*^9}, 
   3.7061388344843903`*^9, 3.7153704735370846`*^9, 3.7153705237699575`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["x:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-", 
         SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"n", "+", 
         FractionBox["1", "2"]}], "\[Element]", "\[DoubleStruckCapitalZ]"}], 
       " ", "\[And]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"n", ">", "0"}], " ", "\[Or]", " ", 
         RowBox[{"m", "\[Element]", 
          SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}], ")"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, 3.5622940305792723`*^9, {3.5622942446095715`*^9, 
   3.562294244919572*^9}, {3.564341532826086*^9, 3.5643415472093115`*^9}, {
   3.5643415952261963`*^9, 3.564341621543442*^9}, {3.5653712427559214`*^9, 
   3.5653712662959547`*^9}, {3.567536711771888*^9, 3.5675367305719137`*^9}, {
   3.567536861132097*^9, 3.5675368736121144`*^9}, {3.5675373448827744`*^9, 
   3.567537359022794*^9}, 3.567537618133157*^9, {3.5675449022087917`*^9, 
   3.567544938338858*^9}, 3.5675454535133247`*^9, 3.568756731398242*^9, {
   3.568835895390687*^9, 3.568835896342289*^9}, {3.5688359541215906`*^9, 
   3.5688359541215906`*^9}, {3.568851625271058*^9, 3.5688516293410635`*^9}, {
   3.569204001072007*^9, 3.569204004992013*^9}, {3.569204303412431*^9, 
   3.569204307292436*^9}, {3.5692045761028123`*^9, 3.569204587352828*^9}, {
   3.569205883784643*^9, 3.5692058902746525`*^9}, {3.5692059270447035`*^9, 
   3.569205949874736*^9}, {3.5692065015555077`*^9, 3.5692065056055136`*^9}, {
   3.5692083283870697`*^9, 3.5692083304370728`*^9}, 3.5692085431473703`*^9, 
   3.5692602275413356`*^9, {3.5692609332623234`*^9, 3.5692609332623234`*^9}, {
   3.673568623090554*^9, 3.6735686510311522`*^9}, 3.6740544189269257`*^9, 
   3.6740549924845395`*^9, 3.674055340199849*^9, 3.6970861326697917`*^9, {
   3.6972274725756807`*^9, 3.697227477940763*^9}, {3.6972278827626057`*^9, 
   3.6972278903130193`*^9}, {3.6972527000178614`*^9, 3.6972527002668753`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, {3.497662620893691*^9, 3.497662652733347*^9}, {
   3.673568889235777*^9, 3.673568892373956*^9}}],

Cell[TextData[{
 "Basis: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["a", "2"], "-", 
    SuperscriptBox["b", "2"]}], "\[Equal]", "0"}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     SuperscriptBox[
      RowBox[{"Cos", "[", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"e", "-", 
           FractionBox[
            RowBox[{"\[Pi]", " ", "a"}], 
            RowBox[{"2", " ", "b"}]]}], ")"}]}], "+", 
        FractionBox[
         RowBox[{"f", " ", "x"}], "2"]}], "]"}], 
      RowBox[{"2", " ", "n"}]]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, {
   3.4976625130975018`*^9, 3.4976625346879396`*^9}, 3.497662595840047*^9, {
   3.498240558183237*^9, 3.498240558183237*^9}, {3.569205385813946*^9, 
   3.5692053865039473`*^9}, {3.6735689942747846`*^9, 
   3.6735689942747846`*^9}, {3.674054418958126*^9, 3.674054418958126*^9}, {
   3.674054641351919*^9, 3.674054641351919*^9}, {3.674054798815797*^9, 
   3.674054798815797*^9}, {3.674055340215449*^9, 3.674055340215449*^9}, {
   3.6740555167663603`*^9, 3.674055519792765*^9}, {3.6972234313234715`*^9, 
   3.6972234313234715`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-", 
     SuperscriptBox["b", "2"]}], "\[Equal]", "0"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"n", "+", 
     FractionBox["1", "2"]}], "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", 
   "\[And]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"n", ">", "0"}], " ", "\[Or]", " ", 
     RowBox[{"m", "\[Element]", 
      SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}], ")"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.497662273761881*^9, 3.497662314743153*^9}, {
   3.49766243823297*^9, 3.4976624525849953`*^9}, {3.4982405631832438`*^9, 
   3.4982405631832438`*^9}, {3.569205387943949*^9, 3.569205387943949*^9}, {
   3.569260945572341*^9, 3.569260945572341*^9}, {3.697227482185828*^9, 
   3.697227482185828*^9}, {3.697227900391637*^9, 3.697227900391637*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"2", " ", "a"}], ")"}], 
        RowBox[{"IntPart", "[", "n", "]"}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], 
        RowBox[{"FracPart", "[", "n", "]"}]]}], 
      SuperscriptBox[
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"e", "-", 
            FractionBox[
             RowBox[{"\[Pi]", " ", "a"}], 
             RowBox[{"2", " ", "b"}]]}], ")"}]}], "+", 
         FractionBox[
          RowBox[{"f", " ", "x"}], "2"]}], "]"}], 
       RowBox[{"2", " ", 
        RowBox[{"FracPart", "[", "n", "]"}]}]]]}]}], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"Cos", "[", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"e", "-", 
           FractionBox[
            RowBox[{"\[Pi]", " ", "a"}], 
            RowBox[{"2", " ", "b"}]]}], ")"}]}], "+", 
        FractionBox[
         RowBox[{"f", " ", "x"}], "2"]}], "]"}], 
      RowBox[{"2", " ", "n"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, {
   3.4976623833052735`*^9, 3.4976624037569094`*^9}, {3.5692602281513367`*^9, 
   3.5692602287313375`*^9}, {3.673568873342868*^9, 3.673568879102197*^9}, {
   3.6740544189737263`*^9, 3.6740544189737263`*^9}, {3.674054642490721*^9, 
   3.674054643426723*^9}, {3.674054804511807*^9, 3.6740548089890146`*^9}, {
   3.6740549925001397`*^9, 3.6740549925157394`*^9}, {3.6740553402310486`*^9, 
   3.674055340246649*^9}, {3.6740554793046937`*^9, 3.674055480022295*^9}, {
   3.697223336286704*^9, 3.6972233661511564`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c_.", "+", 
         RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a_", "+", 
         RowBox[{"b_.", "*", 
          RowBox[{"sin", "[", 
           RowBox[{"e_.", "+", 
            RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], 
     ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", "*", "a"}], ")"}], "^", 
      RowBox[{"IntPart", "[", "n", "]"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Sin", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
       RowBox[{"FracPart", "[", "n", "]"}]}], "/", 
      RowBox[{
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"1", "/", "2"}], "*", 
          RowBox[{"(", 
           RowBox[{"e", "-", 
            RowBox[{"Pi", "*", 
             RowBox[{"a", "/", 
              RowBox[{"(", 
               RowBox[{"2", "*", "b"}], ")"}]}]}]}], ")"}]}], "+", 
         RowBox[{"f", "*", 
          RowBox[{"x", "/", "2"}]}]}], "]"}], "^", 
       RowBox[{"(", 
        RowBox[{"2", "*", 
         RowBox[{"FracPart", "[", "n", "]"}]}], ")"}]}]}], "*", "\n", "    ", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{
         RowBox[{"Cos", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], "*", 
            RowBox[{"(", 
             RowBox[{"e", "-", 
              RowBox[{"Pi", "*", 
               RowBox[{"a", "/", 
                RowBox[{"(", 
                 RowBox[{"2", "*", "b"}], ")"}]}]}]}], ")"}]}], "+", 
           RowBox[{"f", "*", 
            RowBox[{"x", "/", "2"}]}]}], "]"}], "^", 
         RowBox[{"(", 
          RowBox[{"2", "*", "n"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", 
    "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "m"}], 
        "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
     RowBox[{"EqQ", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"a", "^", "2"}], "-", 
        RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
     RowBox[{"IntegerQ", "[", 
      RowBox[{"n", "+", 
       RowBox[{"1", "/", "2"}]}], "]"}], " ", "&&", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"GtQ", "[", 
        RowBox[{"n", ",", "0"}], "]"}], " ", "||", " ", 
       RowBox[{"IGtQ", "[", 
        RowBox[{"m", ",", "0"}], "]"}]}], ")"}]}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976620452370796`*^9, 3.497662356878827*^9, {
   3.497662464394216*^9, 3.497662468965024*^9}, {3.497844840747451*^9, 
   3.4978448419874525`*^9}, {3.5692050357634563`*^9, 3.569205050003476*^9}, 
   3.569260263221386*^9, {3.56926029485143*^9, 3.5692603155214586`*^9}, {
   3.569260953102351*^9, 3.569260964812368*^9}, {3.673569030456854*^9, 
   3.6735690625696907`*^9}, 3.673569116558779*^9, 3.674054442143767*^9, 
   3.6740546030322514`*^9, {3.6740546471883297`*^9, 3.6740546484207315`*^9}, {
   3.674054815743827*^9, 3.674054826166645*^9}, 3.674055018569785*^9, 
   3.674055053424247*^9, {3.67405535796828*^9, 3.674055384101326*^9}, {
   3.674055446525036*^9, 3.674055446540636*^9}, 3.697087120571296*^9, {
   3.6972233453367195`*^9, 3.697223356354339*^9}, {3.6972276752754393`*^9, 
   3.6972276766014414`*^9}, {3.6972279076612496`*^9, 
   3.6972279132636595`*^9}, {3.697252689741274*^9, 3.6972526951225815`*^9}, 
   3.7061388345043907`*^9, 3.7153704735460854`*^9, 3.7153705368227043`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["4.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       RowBox[{
        SuperscriptBox["a", "2"], "-", 
        SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
      RowBox[{"n", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}], "\[And]", " ", 
      RowBox[{"m", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9, 
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9, 
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9, 
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.5462973285533237`*^9, 
   3.5462973314333277`*^9}, {3.5462974099434376`*^9, 3.546297410253438*^9}, {
   3.5633457359281*^9, 3.5633457362081003`*^9}, {3.56753668477185*^9, 
   3.5675366893118563`*^9}, {3.5675371645025215`*^9, 3.5675371650625224`*^9}, 
   3.5675376358531814`*^9, {3.567540921187781*^9, 3.567540945317815*^9}, {
   3.5675446460861425`*^9, 3.567544710434823*^9}, {3.567544838785164*^9, 
   3.5675448419923477`*^9}, {3.5675459222661357`*^9, 
   3.5675459227321625`*^9}, {3.5676305646094885`*^9, 3.567630564859089*^9}, {
   3.568756711228214*^9, 3.5687567156182203`*^9}, {3.568835891677881*^9, 
   3.5688358944234858`*^9}, {3.5688359490359817`*^9, 
   3.5688359490359817`*^9}, {3.568836276152956*^9, 3.5688362763401566`*^9}, {
   3.568839701927928*^9, 3.5688397021079283`*^9}, {3.568922343639141*^9, 
   3.5689223438591413`*^9}, {3.5689233425005393`*^9, 
   3.5689233427605395`*^9}, {3.568996922480447*^9, 3.568996922636447*^9}, {
   3.569204521202736*^9, 3.569204521452736*^9}, {3.5692080379266634`*^9, 
   3.5692080553766875`*^9}, 3.569208099316749*^9, {3.569208254936967*^9, 
   3.5692082551669674`*^9}, {3.5692084895272956`*^9, 
   3.5692084895272956`*^9}, {3.569208577607419*^9, 3.569208577607419*^9}, {
   3.569208642087509*^9, 3.569208642297509*^9}, 3.569699851833132*^9, {
   3.569700431265273*^9, 3.569700431265273*^9}, {3.6734649918425107`*^9, 
   3.673464994307315*^9}, {3.673485747014655*^9, 3.6734857502346597`*^9}, 
   3.6735445707350454`*^9, {3.6735446270601454`*^9, 3.6735446429897733`*^9}, {
   3.67354473113564*^9, 3.673544764069298*^9}, 3.6735700771367207`*^9, {
   3.6735701227803316`*^9, 3.6735701227803316`*^9}, 3.6740544193637266`*^9, 
   3.67405499270294*^9, 3.6740553404338493`*^9, {3.674449495034827*^9, 
   3.6744494971869507`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-", 
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{"m", "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, 3.5622940305792723`*^9, {3.5622942446095715`*^9, 
   3.562294244919572*^9}, {3.564341532826086*^9, 3.5643415472093115`*^9}, {
   3.5643415952261963`*^9, 3.564341621543442*^9}, {3.5653712427559214`*^9, 
   3.5653712662959547`*^9}, {3.567536711771888*^9, 3.5675367305719137`*^9}, {
   3.567536861132097*^9, 3.5675368736121144`*^9}, {3.5675373448827744`*^9, 
   3.567537359022794*^9}, 3.567537618133157*^9, {3.5675449022087917`*^9, 
   3.567544938338858*^9}, 3.5675454535133247`*^9, 3.568756731398242*^9, {
   3.568835895390687*^9, 3.568835896342289*^9}, {3.5688359541215906`*^9, 
   3.5688359541215906`*^9}, {3.568851625271058*^9, 3.5688516293410635`*^9}, {
   3.569204001072007*^9, 3.569204004992013*^9}, {3.569204303412431*^9, 
   3.569204307292436*^9}, {3.5692045761028123`*^9, 3.569204587352828*^9}, {
   3.569205883784643*^9, 3.5692058902746525`*^9}, {3.5692059270447035`*^9, 
   3.569205949874736*^9}, {3.5692065218055363`*^9, 3.569206525825542*^9}, {
   3.5692085844374285`*^9, 3.5692085858774304`*^9}, 3.5696998610566587`*^9, {
   3.5697004439199967`*^9, 3.5697004439199967`*^9}, {3.6734631269596505`*^9, 
   3.6734631327940607`*^9}, {3.673465023627767*^9, 3.673465044986205*^9}, {
   3.6734658926746283`*^9, 3.6734659147994676`*^9}, 3.6735445712654467`*^9, 
   3.6735447417280583`*^9, 3.6735700777437553`*^9, {3.673570123244358*^9, 
   3.673570123244358*^9}, 3.674054419394927*^9, 3.67405499270294*^9, 
   3.6740553404494495`*^9, 3.674449506303472*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4964418130913677`*^9, {3.496442428087432*^9, 3.4964424330170403`*^9}, 
   3.496528894323882*^9, 3.4975761400971813`*^9, {3.4975778216221414`*^9, 
   3.497577829892153*^9}, {3.4975827089309845`*^9, 3.4975827138509912`*^9}, 
   3.497639710530856*^9, {3.497662620893691*^9, 3.497662652733347*^9}, 
   3.497662905609791*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      RowBox[{"Sin", "[", "z", "]"}]}]}]], "\[Equal]", 
   FractionBox[
    RowBox[{"2", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", "z"}]]}], 
    RowBox[{
     RowBox[{"\[ImaginaryI]", " ", "b"}], "+", 
     RowBox[{"2", " ", "a", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "z"}]]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "b", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", "z"}]]}]}]], "\[Equal]", 
   FractionBox[
    RowBox[{"2", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "z"}]]}], 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", "b"}], "+", 
     RowBox[{"2", " ", "a", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", "z"}]]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "b", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", "z"}]]}]}]]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 
   3.4976625130975018`*^9, {3.497662579023217*^9, 3.4976625841556263`*^9}, {
   3.497662923331422*^9, 3.497662936139045*^9}, 3.497663013827181*^9, {
   3.4990190901757536`*^9, 3.4990190901757536`*^9}, {3.4990203600475316`*^9, 
   3.4990203600475316`*^9}, {3.569701422647977*^9, 3.569701424431079*^9}, {
   3.6734654434753094`*^9, 3.6734654434753094`*^9}, {3.673570078490798*^9, 
   3.673570078490798*^9}, {3.6735703877154846`*^9, 3.673570387716485*^9}, {
   3.673570478611684*^9, 3.673570478611684*^9}, {3.673640752857436*^9, 
   3.673640752857436*^9}, {3.6974151979214916`*^9, 3.6974151979214916`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      RowBox[{"Cos", "[", "z", "]"}]}]}]], "\[Equal]", 
   FractionBox[
    RowBox[{"2", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"\[ImaginaryI]", " ", "z"}]]}], 
    RowBox[{"b", "+", 
     RowBox[{"2", " ", "a", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "z"}]]}], "+", 
     RowBox[{"b", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", "z"}]]}]}]]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4964414996009283`*^9, {3.4964447088058186`*^9, 3.4964447131058245`*^9}, 
   3.496528844063812*^9, 3.497575950496916*^9, 3.4975775797018027`*^9, 
   3.497639496888481*^9, {3.497662072225127*^9, 3.497662138852844*^9}, 
   3.4976625130975018`*^9, {3.497662579023217*^9, 3.4976625841556263`*^9}, {
   3.497662923331422*^9, 3.497662936139045*^9}, 3.497663013827181*^9, {
   3.4990190901757536`*^9, 3.4990190901757536`*^9}, {3.4990203600475316`*^9, 
   3.4990203600475316`*^9}, {3.569701422647977*^9, 3.569701424431079*^9}, {
   3.6734654434753094`*^9, 3.6734654434753094`*^9}, {3.673570078490798*^9, 
   3.673570078490798*^9}, {3.6735703877154846`*^9, 3.673570387716485*^9}, {
   3.673570478611684*^9, 3.673570478611684*^9}, {3.673640752857436*^9, 
   3.673640752857436*^9}, {3.697321730620686*^9, 3.697321731070687*^9}, {
   3.6973217727367487`*^9, 3.6973217727367487`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-", 
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{"m", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.497662273761881*^9, 3.497662314743153*^9}, {
   3.49766243823297*^9, 3.4976624525849953`*^9}, {3.4976629473554645`*^9, 
   3.49766295624748*^9}, {3.497663154773429*^9, 3.497663222165547*^9}, {
   3.498240592533285*^9, 3.498240592533285*^9}, {3.499020403627592*^9, 
   3.499020403627592*^9}, {3.673463139268072*^9, 3.673463139268072*^9}, {
   3.673465314179881*^9, 3.673465314179881*^9}, {3.673465903302247*^9, 
   3.6734659201970773`*^9}, {3.6735701240424037`*^9, 3.6735701240424037`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      RowBox[{"Sin", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"-", "2"}]}]}], " ", "\[ImaginaryI]", " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], ")"}]}]]}], 
      RowBox[{"b", "-", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", "a", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], ")"}]}]]}], "-", 
       RowBox[{"b", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], ")"}]}]]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, {
   3.4976623833052735`*^9, 3.4976624037569094`*^9}, 3.4976631413262053`*^9, 
   3.499019090185754*^9, 3.4990204362376385`*^9, {3.673465061150833*^9, 
   3.6734651808244457`*^9}, 3.673570078927823*^9, {3.673570514516738*^9, 
   3.6735705446594615`*^9}, {3.673640663680336*^9, 3.673640687564702*^9}, {
   3.6740544194105268`*^9, 3.6740544194417267`*^9}, {3.67405499271854*^9, 
   3.67405499271854*^9}, {3.6740553404494495`*^9, 3.6740553404650493`*^9}, {
   3.6976483252742248`*^9, 3.697648392378063*^9}, {3.6976518400212564`*^9, 
   3.6976518630725756`*^9}, 3.6976519390759225`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      RowBox[{"Cos", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "2"}]}], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], ")"}]}]]}], 
      RowBox[{"b", "+", 
       RowBox[{"2", " ", "a", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], ")"}]}]]}], "+", 
       RowBox[{"b", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], ")"}]}]]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, {
   3.4976623833052735`*^9, 3.4976624037569094`*^9}, 3.4976631413262053`*^9, 
   3.499019090185754*^9, 3.4990204362376385`*^9, {3.673465061150833*^9, 
   3.6734651808244457`*^9}, 3.673570078927823*^9, {3.673570514516738*^9, 
   3.6735705446594615`*^9}, {3.673640663680336*^9, 3.673640687564702*^9}, {
   3.6740544194105268`*^9, 3.6740544194417267`*^9}, {3.67405499271854*^9, 
   3.67405499271854*^9}, {3.6740553404494495`*^9, 3.6740553404650493`*^9}, {
   3.6976483252742248`*^9, 3.697648392378063*^9}, {3.697651989270794*^9, 
   3.6976520192895107`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "/", 
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"k_.", "*", "Pi"}], "+", 
          RowBox[{"f_.", "*", 
           RowBox[{"Complex", "[", 
            RowBox[{"0", ",", "fz_"}], "]"}], "*", "x_"}]}], "]"}]}]}], 
      ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"2", "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "I"}], "*", "Pi", "*", 
          RowBox[{"(", 
           RowBox[{"k", "-", 
            RowBox[{"1", "/", "2"}]}], ")"}]}], ")"}]}], "*", 
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "I"}], "*", "e"}], "+", 
           RowBox[{"f", "*", "fz", "*", "x"}]}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"b", "+", 
          RowBox[{"2", "*", "a", "*", 
           RowBox[{"E", "^", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "I"}], "*", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{"k", "-", 
                RowBox[{"1", "/", "2"}]}], ")"}]}], ")"}]}], "*", 
           RowBox[{"E", "^", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "I"}], "*", "e"}], "+", 
              RowBox[{"f", "*", "fz", "*", "x"}]}], ")"}]}]}], "-", 
          RowBox[{"b", "*", 
           RowBox[{"E", "^", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "2"}], "*", "I", "*", "k", "*", "Pi"}], ")"}]}], 
           "*", 
           RowBox[{"E", "^", 
            RowBox[{"(", 
             RowBox[{"2", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "I"}], "*", "e"}], "+", 
                RowBox[{"f", "*", "fz", "*", "x"}]}], ")"}]}], ")"}]}]}]}], 
         ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "fz"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"2", "*", "k"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976620452370796`*^9, 3.497662356878827*^9, {
   3.497662464394216*^9, 3.497662468965024*^9}, 3.497662899853381*^9, 
   3.497662998897955*^9, {3.4976631971431026`*^9, 3.4976631991087065`*^9}, 
   3.499019090185754*^9, 3.499020395177581*^9, {3.499020469447685*^9, 
   3.499020476127694*^9}, {3.5697014334965973`*^9, 3.569701443417165*^9}, {
   3.6734631424348774`*^9, 3.6734631468818855`*^9}, {3.6734652282409296`*^9, 
   3.67346530799827*^9}, {3.673465469528041*^9, 3.673465470183242*^9}, {
   3.6734658630149765`*^9, 3.6734658690677867`*^9}, 3.673570079254842*^9, 
   3.6735701501828985`*^9, {3.673570587000883*^9, 3.673570613097376*^9}, 
   3.6735706542577305`*^9, {3.673640785347295*^9, 3.6736408158830414`*^9}, {
   3.674054442190567*^9, 3.6740544422217674`*^9}, 3.674054603157052*^9, 
   3.674055018694586*^9, 3.674055053502247*^9, {3.67405535806188*^9, 
   3.6740553841949263`*^9}, 3.6970871211213274`*^9, 3.697321584864478*^9, {
   3.6974153203324933`*^9, 3.697415343981841*^9}, {3.697415529785469*^9, 
   3.697415545487361*^9}, {3.6974156161384025`*^9, 3.6974156258669586`*^9}, {
   3.6974160493221207`*^9, 3.6974160497631464`*^9}, {3.697416114358841*^9, 
   3.6974162270392714`*^9}, {3.6974165575171614`*^9, 3.697416558699229*^9}, {
   3.697416596364383*^9, 3.6974166388238115`*^9}, 3.6976471129008813`*^9, 
   3.6976471531561832`*^9, {3.6976472126295853`*^9, 3.697647224568268*^9}, {
   3.6976472670446978`*^9, 3.697647274557127*^9}, 3.697647370217599*^9, {
   3.6976497393411045`*^9, 3.6976497853527365`*^9}, {3.6976498262000732`*^9, 
   3.697649826418085*^9}, 3.6976501450723114`*^9, {3.6976504216691318`*^9, 
   3.6976504284985223`*^9}, 3.706138849914412*^9, {3.7153705553537645`*^9, 
   3.715370567552462*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "/", 
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"k_.", "*", "Pi"}], "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"2", "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{"I", "*", "Pi", "*", 
          RowBox[{"(", 
           RowBox[{"k", "-", 
            RowBox[{"1", "/", "2"}]}], ")"}]}], ")"}]}], "*", 
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"I", "*", 
           RowBox[{"(", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], ")"}]}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"b", "+", 
          RowBox[{"2", "*", "a", "*", 
           RowBox[{"E", "^", 
            RowBox[{"(", 
             RowBox[{"I", "*", "Pi", "*", 
              RowBox[{"(", 
               RowBox[{"k", "-", 
                RowBox[{"1", "/", "2"}]}], ")"}]}], ")"}]}], "*", 
           RowBox[{"E", "^", 
            RowBox[{"(", 
             RowBox[{"I", "*", 
              RowBox[{"(", 
               RowBox[{"e", "+", 
                RowBox[{"f", "*", "x"}]}], ")"}]}], ")"}]}]}], "-", 
          RowBox[{"b", "*", 
           RowBox[{"E", "^", 
            RowBox[{"(", 
             RowBox[{"2", "*", "I", "*", "k", "*", "Pi"}], ")"}]}], "*", 
           RowBox[{"E", "^", 
            RowBox[{"(", 
             RowBox[{"2", "*", "I", "*", 
              RowBox[{"(", 
               RowBox[{"e", "+", 
                RowBox[{"f", "*", "x"}]}], ")"}]}], ")"}]}]}]}], ")"}]}]}], 
      ",", "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"2", "*", "k"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976620452370796`*^9, 3.497662356878827*^9, {
   3.497662464394216*^9, 3.497662468965024*^9}, 3.497662899853381*^9, 
   3.497662998897955*^9, {3.4976631971431026`*^9, 3.4976631991087065`*^9}, 
   3.499019090185754*^9, 3.499020395177581*^9, {3.499020469447685*^9, 
   3.499020476127694*^9}, {3.5697014334965973`*^9, 3.569701443417165*^9}, {
   3.6734631424348774`*^9, 3.6734631468818855`*^9}, {3.6734652282409296`*^9, 
   3.67346530799827*^9}, {3.673465469528041*^9, 3.673465470183242*^9}, {
   3.6734658630149765`*^9, 3.6734658690677867`*^9}, 3.673570079254842*^9, 
   3.6735701501828985`*^9, {3.673570587000883*^9, 3.673570613097376*^9}, 
   3.6735706542577305`*^9, {3.673640785347295*^9, 3.6736408158830414`*^9}, {
   3.674054442190567*^9, 3.6740544422217674`*^9}, 3.674054603157052*^9, 
   3.674055018694586*^9, 3.674055053502247*^9, {3.67405535806188*^9, 
   3.6740553841949263`*^9}, 3.6970871211213274`*^9, {3.697321590101486*^9, 
   3.6973215916714883`*^9}, 3.6973216447555637`*^9, {3.697322787006505*^9, 
   3.697322817410548*^9}, {3.697414257834735*^9, 3.697414382113843*^9}, {
   3.697649161620061*^9, 3.6976491641022034`*^9}, {3.697649320757163*^9, 
   3.697649341011322*^9}, {3.697649394047355*^9, 3.697649439607961*^9}, 
   3.706138849934412*^9, {3.7153705553737655`*^9, 3.715370567571463*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c_.", "+", 
         RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "/", 
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"sin", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", 
            RowBox[{"Complex", "[", 
             RowBox[{"0", ",", "fz_"}], "]"}], "*", "x_"}]}], "]"}]}]}], 
       ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
   RowBox[{
    RowBox[{"2", "*", "I", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{
         RowBox[{"E", "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "I"}], "*", "e"}], "+", 
            RowBox[{"f", "*", "fz", "*", "x"}]}], ")"}]}], "/", 
         RowBox[{"(", 
          RowBox[{"b", "+", 
           RowBox[{"2", "*", "I", "*", "a", "*", 
            RowBox[{"E", "^", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "I"}], "*", "e"}], "+", 
               RowBox[{"f", "*", "fz", "*", "x"}]}], ")"}]}]}], "-", 
           RowBox[{"b", "*", 
            RowBox[{"E", "^", 
             RowBox[{"(", 
              RowBox[{"2", "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "I"}], "*", "e"}], "+", 
                 RowBox[{"f", "*", "fz", "*", "x"}]}], ")"}]}], ")"}]}]}]}], 
          ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "fz"}], 
        "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
     RowBox[{"NeQ", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"a", "^", "2"}], "-", 
        RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
     RowBox[{"IGtQ", "[", 
      RowBox[{"m", ",", "0"}], "]"}]}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976620452370796`*^9, 3.497662356878827*^9, {
   3.497662464394216*^9, 3.497662468965024*^9}, 3.497662899853381*^9, 
   3.497662998897955*^9, {3.4976631971431026`*^9, 3.4976631991087065`*^9}, 
   3.499019090185754*^9, 3.499020395177581*^9, {3.499020469447685*^9, 
   3.499020476127694*^9}, {3.5697014334965973`*^9, 3.569701443417165*^9}, {
   3.6734631424348774`*^9, 3.6734631468818855`*^9}, {3.6734652282409296`*^9, 
   3.67346530799827*^9}, {3.673465469528041*^9, 3.673465470183242*^9}, {
   3.6734658630149765`*^9, 3.6734658690677867`*^9}, 3.673570079254842*^9, 
   3.6735701501828985`*^9, {3.673570587000883*^9, 3.673570613097376*^9}, 
   3.6735706542577305`*^9, {3.673640785347295*^9, 3.6736408158830414`*^9}, {
   3.674054442190567*^9, 3.6740544422217674`*^9}, 3.674054603157052*^9, 
   3.674055018694586*^9, 3.674055053502247*^9, {3.67405535806188*^9, 
   3.6740553841949263`*^9}, 3.6970871211213274`*^9, 3.697321584864478*^9, {
   3.6974153203324933`*^9, 3.697415343981841*^9}, {3.697415529785469*^9, 
   3.697415545487361*^9}, {3.6974156161384025`*^9, 3.6974156258669586`*^9}, {
   3.6974160493221207`*^9, 3.6974160497631464`*^9}, {3.697416114358841*^9, 
   3.6974162270392714`*^9}, {3.6974165575171614`*^9, 3.697416558699229*^9}, {
   3.697416596364383*^9, 3.6974166388238115`*^9}, {3.697649580699031*^9, 
   3.6976496181671743`*^9}, 3.6976498325854383`*^9, {3.6976499728854628`*^9, 
   3.6976499764976697`*^9}, {3.697650016936982*^9, 3.697650017326005*^9}, 
   3.69765006183255*^9, {3.697652517532008*^9, 3.697652524865428*^9}, {
   3.6976525811086445`*^9, 3.697652585868917*^9}, {3.6976529618234205`*^9, 
   3.697652965784647*^9}, 3.706138849944412*^9, {3.715370555390766*^9, 
   3.7153705675874643`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c_.", "+", 
         RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "/", 
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"sin", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", 
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], "*", "I", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{
         RowBox[{"E", "^", 
          RowBox[{"(", 
           RowBox[{"I", "*", 
            RowBox[{"(", 
             RowBox[{"e", "+", 
              RowBox[{"f", "*", "x"}]}], ")"}]}], ")"}]}], "/", 
         RowBox[{"(", 
          RowBox[{"b", "-", 
           RowBox[{"2", "*", "I", "*", "a", "*", 
            RowBox[{"E", "^", 
             RowBox[{"(", 
              RowBox[{"I", "*", 
               RowBox[{"(", 
                RowBox[{"e", "+", 
                 RowBox[{"f", "*", "x"}]}], ")"}]}], ")"}]}]}], "-", 
           RowBox[{"b", "*", 
            RowBox[{"E", "^", 
             RowBox[{"(", 
              RowBox[{"2", "*", "I", "*", 
               RowBox[{"(", 
                RowBox[{"e", "+", 
                 RowBox[{"f", "*", "x"}]}], ")"}]}], ")"}]}]}]}], ")"}]}]}], 
       ",", "x"}], "]"}]}], " ", "/;", "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], 
        "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
     RowBox[{"NeQ", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"a", "^", "2"}], "-", 
        RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
     RowBox[{"IGtQ", "[", 
      RowBox[{"m", ",", "0"}], "]"}]}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976620452370796`*^9, 3.497662356878827*^9, {
   3.497662464394216*^9, 3.497662468965024*^9}, 3.497662899853381*^9, 
   3.497662998897955*^9, {3.4976631971431026`*^9, 3.4976631991087065`*^9}, 
   3.499019090185754*^9, 3.499020395177581*^9, {3.499020469447685*^9, 
   3.499020476127694*^9}, {3.5697014334965973`*^9, 3.569701443417165*^9}, {
   3.6734631424348774`*^9, 3.6734631468818855`*^9}, {3.6734652282409296`*^9, 
   3.67346530799827*^9}, {3.673465469528041*^9, 3.673465470183242*^9}, {
   3.6734658630149765`*^9, 3.6734658690677867`*^9}, 3.673570079254842*^9, 
   3.6735701501828985`*^9, {3.673570587000883*^9, 3.673570613097376*^9}, 
   3.6735706542577305`*^9, {3.673640785347295*^9, 3.6736408158830414`*^9}, {
   3.674054442190567*^9, 3.6740544422217674`*^9}, 3.674054603157052*^9, 
   3.674055018694586*^9, 3.674055053502247*^9, {3.67405535806188*^9, 
   3.6740553841949263`*^9}, 3.6970871211213274`*^9, 3.697321584864478*^9, 
   3.697415254727741*^9, {3.6976490263383236`*^9, 3.6976490603602695`*^9}, {
   3.6976519127834187`*^9, 3.697651921587922*^9}, {3.6976521483608932`*^9, 
   3.697652184643968*^9}, {3.6976529681247807`*^9, 3.697652971945999*^9}, 
   3.706138849954412*^9, {3.715370555406767*^9, 3.715370567603465*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "/", 
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", 
           RowBox[{"Complex", "[", 
            RowBox[{"0", ",", "fz_"}], "]"}], "*", "x_"}]}], "]"}]}]}], 
      ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"2", "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "I"}], "*", "e"}], "+", 
           RowBox[{"f", "*", "fz", "*", "x"}]}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "I"}], "*", "b"}], "+", 
          RowBox[{"2", "*", "a", "*", 
           RowBox[{"E", "^", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "I"}], "*", "e"}], "+", 
              RowBox[{"f", "*", "fz", "*", "x"}]}], ")"}]}]}], "+", 
          RowBox[{"I", "*", "b", "*", 
           RowBox[{"E", "^", 
            RowBox[{"(", 
             RowBox[{"2", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "I"}], "*", "e"}], "+", 
                RowBox[{"f", "*", "fz", "*", "x"}]}], ")"}]}], ")"}]}]}]}], 
         ")"}]}]}], ",", "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "fz"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976620452370796`*^9, 3.497662356878827*^9, {
   3.497662464394216*^9, 3.497662468965024*^9}, 3.497662899853381*^9, 
   3.497662998897955*^9, {3.4976631971431026`*^9, 3.4976631991087065`*^9}, 
   3.499019090185754*^9, 3.499020395177581*^9, {3.499020469447685*^9, 
   3.499020476127694*^9}, {3.5697014334965973`*^9, 3.569701443417165*^9}, {
   3.6734631424348774`*^9, 3.6734631468818855`*^9}, {3.6734652282409296`*^9, 
   3.67346530799827*^9}, {3.673465469528041*^9, 3.673465470183242*^9}, {
   3.6734658630149765`*^9, 3.6734658690677867`*^9}, 3.673570079254842*^9, 
   3.6735701501828985`*^9, {3.673570587000883*^9, 3.673570613097376*^9}, 
   3.6735706542577305`*^9, {3.673640785347295*^9, 3.6736408158830414`*^9}, {
   3.674054442190567*^9, 3.6740544422217674`*^9}, 3.674054603157052*^9, 
   3.674055018694586*^9, 3.674055053502247*^9, {3.67405535806188*^9, 
   3.6740553841949263`*^9}, 3.6970871211213274`*^9, 3.697321584864478*^9, {
   3.6974153203324933`*^9, 3.697415343981841*^9}, {3.697415529785469*^9, 
   3.697415545487361*^9}, {3.6974156161384025`*^9, 3.6974156258669586`*^9}, {
   3.6974160493221207`*^9, 3.6974160497631464`*^9}, {3.697416114358841*^9, 
   3.6974162270392714`*^9}, {3.6974165575171614`*^9, 3.697416558699229*^9}, {
   3.697416596364383*^9, 3.6974166388238115`*^9}, 3.7061388499644117`*^9, {
   3.7153705554247684`*^9, 3.715370567619466*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "/", 
     RowBox[{"(", 
      RowBox[{"a_", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"sin", "[", 
         RowBox[{"e_.", "+", 
          RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"2", "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
       RowBox[{
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"I", "*", 
           RowBox[{"(", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], ")"}]}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"I", "*", "b"}], "+", 
          RowBox[{"2", "*", "a", "*", 
           RowBox[{"E", "^", 
            RowBox[{"(", 
             RowBox[{"I", "*", 
              RowBox[{"(", 
               RowBox[{"e", "+", 
                RowBox[{"f", "*", "x"}]}], ")"}]}], ")"}]}]}], "-", 
          RowBox[{"I", "*", "b", "*", 
           RowBox[{"E", "^", 
            RowBox[{"(", 
             RowBox[{"2", "*", "I", "*", 
              RowBox[{"(", 
               RowBox[{"e", "+", 
                RowBox[{"f", "*", "x"}]}], ")"}]}], ")"}]}]}]}], ")"}]}]}], 
      ",", "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976620452370796`*^9, 3.497662356878827*^9, {
   3.497662464394216*^9, 3.497662468965024*^9}, 3.497662899853381*^9, 
   3.497662998897955*^9, {3.4976631971431026`*^9, 3.4976631991087065`*^9}, 
   3.499019090185754*^9, 3.499020395177581*^9, {3.499020469447685*^9, 
   3.499020476127694*^9}, {3.5697014334965973`*^9, 3.569701443417165*^9}, {
   3.6734631424348774`*^9, 3.6734631468818855`*^9}, {3.6734652282409296`*^9, 
   3.67346530799827*^9}, {3.673465469528041*^9, 3.673465470183242*^9}, {
   3.6734658630149765`*^9, 3.6734658690677867`*^9}, 3.673570079254842*^9, 
   3.6735701501828985`*^9, {3.673570587000883*^9, 3.673570613097376*^9}, 
   3.6735706542577305`*^9, {3.673640785347295*^9, 3.6736408158830414`*^9}, {
   3.674054442190567*^9, 3.6740544422217674`*^9}, 3.674054603157052*^9, 
   3.674055018694586*^9, 3.674055053502247*^9, {3.67405535806188*^9, 
   3.6740553841949263`*^9}, 3.6970871211213274`*^9, 3.697321584864478*^9, 
   3.697415254727741*^9, 3.706138849974412*^9, {3.7153705554387693`*^9, 
   3.7153705676344666`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Sin", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "2"]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-", 
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{"m", "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, 3.5622940305792723`*^9, {3.5622942446095715`*^9, 
   3.562294244919572*^9}, {3.564341532826086*^9, 3.5643415472093115`*^9}, {
   3.5643415952261963`*^9, 3.564341621543442*^9}, {3.5653712427559214`*^9, 
   3.5653712662959547`*^9}, {3.567536711771888*^9, 3.5675367305719137`*^9}, {
   3.567536861132097*^9, 3.5675368736121144`*^9}, {3.5675373448827744`*^9, 
   3.567537359022794*^9}, 3.567537618133157*^9, {3.5675449022087917`*^9, 
   3.567544938338858*^9}, 3.5675454535133247`*^9, 3.568756731398242*^9, {
   3.568835895390687*^9, 3.568835896342289*^9}, {3.5688359541215906`*^9, 
   3.5688359541215906`*^9}, {3.568851625271058*^9, 3.5688516293410635`*^9}, {
   3.569204001072007*^9, 3.569204004992013*^9}, {3.569204303412431*^9, 
   3.569204307292436*^9}, {3.5692045761028123`*^9, 3.569204587352828*^9}, {
   3.569205883784643*^9, 3.5692058902746525`*^9}, {3.5692059270447035`*^9, 
   3.569205949874736*^9}, {3.5692065112355213`*^9, 3.569206514985527*^9}, {
   3.569208580617423*^9, 3.5692085822774253`*^9}, 3.569699853809244*^9, {
   3.5697004398877664`*^9, 3.5697004398877664`*^9}, 3.673470295682214*^9, {
   3.6734808068368773`*^9, 3.673480812856886*^9}, {3.6734812118905478`*^9, 
   3.6734812121005483`*^9}, 3.6735445717490473`*^9, 3.6735447424300594`*^9, 
   3.6735700798478756`*^9, {3.673570124595435*^9, 3.673570124595435*^9}, 
   3.674054419457327*^9, 3.67405499273414*^9, 3.6740553404650493`*^9, 
   3.674449508088574*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-", 
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{"m", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.497662273761881*^9, 3.497662314743153*^9}, {
   3.49766243823297*^9, 3.4976624525849953`*^9}, {3.4976629473554645`*^9, 
   3.49766295624748*^9}, {3.4982405753732615`*^9, 3.4982405793132668`*^9}, {
   3.499020266797401*^9, 3.499020267357402*^9}, {3.673480815126889*^9, 
   3.673480815126889*^9}, {3.6735701251444664`*^9, 3.673570125145467*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "2"]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{"b", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}], 
       RowBox[{"f", " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["a", "2"], "-", 
          SuperscriptBox["b", "2"]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}]}]]}]}]}]}], "+", 
  RowBox[{
   FractionBox["a", 
    RowBox[{
     SuperscriptBox["a", "2"], "-", 
     SuperscriptBox["b", "2"]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", " ", "x"}]}], ")"}], "m"], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "d", " ", "m"}], 
    RowBox[{"f", " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["a", "2"], "-", 
       SuperscriptBox["b", "2"]}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], 
        RowBox[{"m", "-", "1"}]], " ", 
       RowBox[{"Cos", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}], 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, {
   3.4976623833052735`*^9, 3.4976624037569094`*^9}, {3.497663070736081*^9, 
   3.4976631028721375`*^9}, {3.4990190901657534`*^9, 
   3.4990190901657534`*^9}, {3.499020281147421*^9, 3.499020315247469*^9}, {
   3.673470299122218*^9, 3.673470309116233*^9}, {3.6734808261669044`*^9, 
   3.6734808320589128`*^9}, {3.6734852411818438`*^9, 
   3.6734852630578747`*^9}, {3.6735700848441615`*^9, 
   3.6735700869222803`*^9}, {3.673570128929683*^9, 3.6735701303687654`*^9}, {
   3.673571161169724*^9, 3.6735711716563234`*^9}, {3.6735713639563227`*^9, 
   3.6735714779338417`*^9}, {3.674054419472927*^9, 3.674054419504127*^9}, {
   3.6740547312004776`*^9, 3.674054732027279*^9}, {3.67405499273414*^9, 
   3.6740549927497396`*^9}, 3.6740551223375683`*^9, {3.674055340480649*^9, 
   3.674055340496249*^9}, {3.674055773975213*^9, 3.674055775240815*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"sin", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "2"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"b", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
     RowBox[{
      RowBox[{"Cos", "[", 
       RowBox[{"e", "+", 
        RowBox[{"f", "*", "x"}]}], "]"}], "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", "^", "2"}], "-", 
          RowBox[{"b", "^", "2"}]}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}]}], ")"}]}]}], " ", 
    "+", " ", "\n", "  ", 
    RowBox[{
     RowBox[{"a", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", "^", "2"}], "-", 
        RowBox[{"b", "^", "2"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "/", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}]}], ",", "x"}], 
      "]"}]}], " ", "-", " ", "\n", "  ", 
    RowBox[{"b", "*", "d", "*", 
     RowBox[{"m", "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", "^", "2"}], "-", 
          RowBox[{"b", "^", "2"}]}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "1"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", "*", "x"}]}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Sin", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}]}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976620452370796`*^9, 3.497662356878827*^9, {
   3.497662464394216*^9, 3.497662468965024*^9}, 3.497662899853381*^9, {
   3.4990190901657534`*^9, 3.4990190901757536`*^9}, 3.499020260597392*^9, {
   3.569701527794991*^9, 3.569701549864253*^9}, {3.673470334807271*^9, 
   3.673470343827284*^9}, {3.673472101348009*^9, 3.6734721101550217`*^9}, {
   3.6734808382869225`*^9, 3.673480849636938*^9}, 3.6734809989872427`*^9, {
   3.673570081808988*^9, 3.673570082997056*^9}, {3.6735701506009226`*^9, 
   3.6735701521930137`*^9}, {3.673571507882555*^9, 3.6735715125258207`*^9}, {
   3.674054442252967*^9, 3.6740544422841673`*^9}, 3.6740546031726522`*^9, {
   3.6740547365980873`*^9, 3.6740547372708883`*^9}, {3.6740550187101855`*^9, 
   3.6740550187257853`*^9}, 3.6740550535334473`*^9, 3.6740551303403826`*^9, {
   3.67405535810868*^9, 3.6740553842105265`*^9}, {3.6740557805916247`*^9, 
   3.674055781605626*^9}, 3.69708712168336*^9, 3.706138849994412*^9, {
   3.71537055545077*^9, 3.7153705676454673`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["a", "2"], "-", 
         SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{"n", "+", "2"}], "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}], "\[And]", " ", 
       RowBox[{"m", "\[Element]", 
        SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, 3.5622940305792723`*^9, {3.5622942446095715`*^9, 
   3.562294244919572*^9}, {3.564341532826086*^9, 3.5643415472093115`*^9}, {
   3.5643415952261963`*^9, 3.564341621543442*^9}, {3.5653712427559214`*^9, 
   3.5653712662959547`*^9}, {3.567536711771888*^9, 3.5675367305719137`*^9}, {
   3.567536861132097*^9, 3.5675368736121144`*^9}, {3.5675373448827744`*^9, 
   3.567537359022794*^9}, 3.567537618133157*^9, {3.5675449022087917`*^9, 
   3.567544938338858*^9}, 3.5675454535133247`*^9, 3.568756731398242*^9, {
   3.568835895390687*^9, 3.568835896342289*^9}, {3.5688359541215906`*^9, 
   3.5688359541215906`*^9}, {3.568851625271058*^9, 3.5688516293410635`*^9}, {
   3.569204001072007*^9, 3.569204004992013*^9}, {3.569204303412431*^9, 
   3.569204307292436*^9}, {3.5692045761028123`*^9, 3.569204587352828*^9}, {
   3.569205883784643*^9, 3.5692058902746525`*^9}, {3.5692059270447035`*^9, 
   3.569205949874736*^9}, {3.5692065112355213`*^9, 3.569206514985527*^9}, {
   3.569208580617423*^9, 3.5692085822774253`*^9}, 3.569699853809244*^9, {
   3.5697004398877664`*^9, 3.5697004398877664`*^9}, 3.673470295682214*^9, {
   3.6734808068368773`*^9, 3.673480812856886*^9}, {3.6734812118905478`*^9, 
   3.6734812121005483`*^9}, {3.673485207378795*^9, 3.6734852076887956`*^9}, 
   3.6734852379518394`*^9, {3.67348528819391*^9, 3.673485311610944*^9}, {
   3.673485373452033*^9, 3.673485373452033*^9}, 3.673544572185848*^9, 
   3.673544743054061*^9, 3.673570084575146*^9, {3.6735701276286087`*^9, 
   3.6735701276286087`*^9}, 3.674054419535327*^9, 3.6740549927497396`*^9, 
   3.6740553405118494`*^9, 3.6744495087746134`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "2"], "-", 
     SuperscriptBox["b", "2"]}], "\[NotEqual]", "0"}], " ", "\[And]", " ", 
   RowBox[{
    RowBox[{"n", "+", "2"}], "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "-"]}], "\[And]", " ", 
   RowBox[{"m", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.497662273761881*^9, 3.497662314743153*^9}, {
   3.49766243823297*^9, 3.4976624525849953`*^9}, {3.4976629473554645`*^9, 
   3.49766295624748*^9}, {3.4982405753732615`*^9, 3.4982405793132668`*^9}, {
   3.499020266797401*^9, 3.499020267357402*^9}, {3.673480815126889*^9, 
   3.673480815126889*^9}, {3.673485324113962*^9, 3.673485324113962*^9}, {
   3.6734853756320357`*^9, 3.6734853756320357`*^9}, {3.6735701281846404`*^9, 
   3.6735701281846404`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"b", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"c", "+", 
            RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", 
             RowBox[{"Sin", "[", 
              RowBox[{"e", "+", 
               RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], 
          RowBox[{"n", "+", "1"}]]}], 
        RowBox[{"f", " ", 
         RowBox[{"(", 
          RowBox[{"n", "+", "1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["a", "2"], "-", 
           SuperscriptBox["b", "2"]}], ")"}]}]]}]}]}]}]}], "+", 
  RowBox[{
   FractionBox["a", 
    RowBox[{
     SuperscriptBox["a", "2"], "-", 
     SuperscriptBox["b", "2"]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], 
      RowBox[{"n", "+", "1"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "+", "\[IndentingNewLine]", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "d", " ", "m"}], 
    RowBox[{"f", " ", 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["a", "2"], "-", 
       SuperscriptBox["b", "2"]}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], 
      RowBox[{"m", "-", "1"}]], " ", 
     RowBox[{"Cos", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], 
      RowBox[{"n", "+", "1"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", 
     RowBox[{"(", 
      RowBox[{"n", "+", "2"}], ")"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["a", "2"], "-", 
       SuperscriptBox["b", "2"]}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
     RowBox[{"Sin", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", " ", "x"}]}], "]"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"e", "+", 
           RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], 
      RowBox[{"n", "+", "1"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, {
   3.4976623833052735`*^9, 3.4976624037569094`*^9}, {3.497663070736081*^9, 
   3.4976631028721375`*^9}, {3.4990190901657534`*^9, 
   3.4990190901657534`*^9}, {3.499020281147421*^9, 3.499020315247469*^9}, {
   3.673470299122218*^9, 3.673470309116233*^9}, {3.6734808261669044`*^9, 
   3.6734808320589128`*^9}, {3.6734852411818438`*^9, 
   3.6734852630578747`*^9}, {3.6735700848441615`*^9, 
   3.6735700869222803`*^9}, {3.673570128929683*^9, 3.6735701303687654`*^9}, {
   3.673571161169724*^9, 3.6735711716563234`*^9}, {3.674054419550927*^9, 
   3.6740544195977273`*^9}, {3.6740547458977036`*^9, 
   3.6740547467869053`*^9}, {3.67405499276534*^9, 3.67405499278094*^9}, 
   3.674055142325204*^9, {3.6740553405118494`*^9, 3.674055340543049*^9}, {
   3.674055798736457*^9, 3.6740557997660584`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"sin", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "b"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c", "+", 
        RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
     RowBox[{"Cos", "[", 
      RowBox[{"e", "+", 
       RowBox[{"f", "*", "x"}]}], "]"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Sin", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"n", "+", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", "^", "2"}], "-", 
          RowBox[{"b", "^", "2"}]}], ")"}]}], ")"}]}]}], " ", "+", " ", "\n", 
    "  ", 
    RowBox[{
     RowBox[{"a", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", "^", "2"}], "-", 
        RowBox[{"b", "^", "2"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Sin", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "+", "1"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "+", 
    " ", "\n", "  ", 
    RowBox[{"b", "*", "d", "*", 
     RowBox[{"m", "/", 
      RowBox[{"(", 
       RowBox[{"f", "*", 
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", "^", "2"}], "-", 
          RowBox[{"b", "^", "2"}]}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"m", "-", "1"}], ")"}]}], "*", 
        RowBox[{"Cos", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Sin", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "+", "1"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "-", 
    " ", "\n", "  ", 
    RowBox[{"b", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"n", "+", "2"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"n", "+", "1"}], ")"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", "^", "2"}], "-", 
          RowBox[{"b", "^", "2"}]}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c", "+", 
           RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", "*", "x"}]}], "]"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Sin", "[", 
             RowBox[{"e", "+", 
              RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n", "+", "1"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "^", "2"}], "-", 
       RowBox[{"b", "^", "2"}]}], ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"ILtQ", "[", 
     RowBox[{"n", ",", 
      RowBox[{"-", "2"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"m", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976620452370796`*^9, 3.497662356878827*^9, {
   3.497662464394216*^9, 3.497662468965024*^9}, 3.497662899853381*^9, {
   3.4990190901657534`*^9, 3.4990190901757536`*^9}, 3.499020260597392*^9, {
   3.569701527794991*^9, 3.569701549864253*^9}, {3.673470334807271*^9, 
   3.673470343827284*^9}, {3.673472101348009*^9, 3.6734721101550217`*^9}, {
   3.6734808382869225`*^9, 3.673480849636938*^9}, 3.6734809989872427`*^9, {
   3.673485355797007*^9, 3.6734853977560673`*^9}, 3.673485499780302*^9, {
   3.673570087596319*^9, 3.673570089604434*^9}, {3.6735701527160435`*^9, 
   3.6735701537721043`*^9}, {3.673571226927485*^9, 3.6735712416453266`*^9}, {
   3.674054442346567*^9, 3.6740544423933673`*^9}, 3.674054603188252*^9, {
   3.6740547511393127`*^9, 3.674054752044114*^9}, {3.6740550187413855`*^9, 
   3.6740550187569857`*^9}, 3.674055053549047*^9, 3.6740551440568066`*^9, {
   3.6740553581710806`*^9, 3.674055384226126*^9}, {3.6740558048984675`*^9, 
   3.674055806786071*^9}, 3.6970871222943945`*^9, 3.706138850024412*^9, {
   3.7153705554607706`*^9, 3.715370593705958*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["X:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"c", "+", 
       RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", 
         RowBox[{"e", "+", 
          RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.5418136182858934`*^9, 3.541813646495933*^9}, {
   3.541885900975107*^9, 3.541885900975107*^9}, {3.5418899389143834`*^9, 
   3.5418899662244215`*^9}, 3.5418900751945744`*^9, {3.5462974735235267`*^9, 
   3.546297473743527*^9}, {3.560128588234247*^9, 3.560128589104248*^9}, {
   3.560128670294362*^9, 3.560128673044366*^9}, 3.560216297553895*^9, 
   3.5606251400716968`*^9, {3.561749988629304*^9, 3.56175000739933*^9}, {
   3.5617574489046125`*^9, 3.561757453934619*^9}, 3.5617578683751993`*^9, {
   3.561758400818445*^9, 3.5617584075484543`*^9}, {3.561758717288888*^9, 
   3.5617587174988885`*^9}, {3.5617603061411123`*^9, 3.5617603105011187`*^9}, 
   3.5617605991515226`*^9, {3.561760630041566*^9, 3.561760630041566*^9}, {
   3.5617653654281955`*^9, 3.561765368188199*^9}, {3.562108393456187*^9, 
   3.5621083944701886`*^9}, 3.5622940305792723`*^9, {3.5622942446095715`*^9, 
   3.562294244919572*^9}, {3.564341532826086*^9, 3.5643415472093115`*^9}, {
   3.5643415952261963`*^9, 3.564341621543442*^9}, {3.5653712427559214`*^9, 
   3.5653712662959547`*^9}, {3.567536711771888*^9, 3.5675367305719137`*^9}, {
   3.567536861132097*^9, 3.5675368736121144`*^9}, {3.5675373448827744`*^9, 
   3.567537359022794*^9}, 3.567537618133157*^9, {3.5675449022087917`*^9, 
   3.567544938338858*^9}, 3.5675454535133247`*^9, 3.568756731398242*^9, {
   3.568835895390687*^9, 3.568835896342289*^9}, {3.5688359541215906`*^9, 
   3.5688359541215906`*^9}, {3.568851625271058*^9, 3.5688516293410635`*^9}, {
   3.569204001072007*^9, 3.569204004992013*^9}, {3.569204303412431*^9, 
   3.569204307292436*^9}, {3.5692045761028123`*^9, 3.569204587352828*^9}, {
   3.569205883784643*^9, 3.5692058902746525`*^9}, {3.5692059270447035`*^9, 
   3.569205949874736*^9}, {3.5692065112355213`*^9, 3.569206514985527*^9}, {
   3.569208580617423*^9, 3.5692085822774253`*^9}, 3.569699853809244*^9, {
   3.5697004398877664`*^9, 3.5697004398877664`*^9}, 3.673470295682214*^9, {
   3.6734808068368773`*^9, 3.673480812856886*^9}, {3.6734812118905478`*^9, 
   3.6734812121005483`*^9}, {3.673485207378795*^9, 3.6734852076887956`*^9}, 
   3.6734852379518394`*^9, {3.67348528819391*^9, 3.673485311610944*^9}, {
   3.673485373452033*^9, 3.673485373452033*^9}, 3.673544572185848*^9, 
   3.673544743054061*^9, {3.6735447765981197`*^9, 3.6735447897021427`*^9}, {
   3.6735451069205027`*^9, 3.6735451216841288`*^9}, 3.673571609358359*^9, 
   3.674054419613327*^9, 3.67405499278094*^9, 3.674055340543049*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.4964417379912624`*^9, 3.4964417471112747`*^9}, {
   3.496441910111503*^9, 3.4964419275315275`*^9}, 3.496451213764926*^9, 
   3.496528833243797*^9, {3.4975777080419827`*^9, 3.4975777244120054`*^9}, 
   3.4976397903561964`*^9, {3.497662273761881*^9, 3.497662314743153*^9}, {
   3.49766243823297*^9, 3.4976624525849953`*^9}, {3.4976629473554645`*^9, 
   3.49766295624748*^9}, {3.4982405753732615`*^9, 3.4982405793132668`*^9}, {
   3.499020266797401*^9, 3.499020267357402*^9}, {3.673480815126889*^9, 
   3.673480815126889*^9}, {3.673485324113962*^9, 3.673485324113962*^9}, {
   3.6734853756320357`*^9, 3.6734853756320357`*^9}, {3.6735448067267733`*^9, 
   3.6735448067267733`*^9}, {3.6735451425901656`*^9, 3.673545143962968*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"c", "+", 
      RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sin", "[", 
        RowBox[{"e", "+", 
         RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], " ", 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.496441851501421*^9, 
   3.496441872881451*^9}, {3.496528916553913*^9, 3.4965289272239285`*^9}, {
   3.497576165747217*^9, 3.4975761801372375`*^9}, {3.497577761382057*^9, 
   3.4975777938921027`*^9}, 3.49763959300025*^9, 3.497639634480723*^9, {
   3.4976623833052735`*^9, 3.4976624037569094`*^9}, {3.497663070736081*^9, 
   3.4976631028721375`*^9}, {3.4990190901657534`*^9, 
   3.4990190901657534`*^9}, {3.499020281147421*^9, 3.499020315247469*^9}, {
   3.673470299122218*^9, 3.673470309116233*^9}, {3.6734808261669044`*^9, 
   3.6734808320589128`*^9}, {3.6734852411818438`*^9, 
   3.6734852630578747`*^9}, {3.6735448134191847`*^9, 3.673544853919856*^9}, 
   3.673545135068952*^9, {3.673571621535055*^9, 3.673571622023083*^9}, {
   3.6740544196445274`*^9, 3.6740544196445274`*^9}, {3.6740549927965403`*^9, 
   3.6740549927965403`*^9}, {3.674055340558649*^9, 3.674055340558649*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"c_.", "+", 
        RowBox[{"d_.", "*", "x_"}]}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"sin", "[", 
          RowBox[{"e_.", "+", 
           RowBox[{"f_.", "*", "x_"}]}], "]"}]}]}], ")"}], "^", "n_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"c", "+", 
         RowBox[{"d", "*", "x"}]}], ")"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Sin", "[", 
           RowBox[{"e", "+", 
            RowBox[{"f", "*", "x"}]}], "]"}]}]}], ")"}], "^", "n"}]}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "m", ",", 
       "n"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, 
   3.496441834031397*^9, 3.496442095051762*^9, 3.496528791863739*^9, 
   3.496528888643874*^9, 3.497575939976901*^9, 3.4975761146971455`*^9, 
   3.4975775509417624`*^9, 3.497577752792045*^9, 3.4975834953320856`*^9, 
   3.4976395861674376`*^9, 3.4976620452370796`*^9, 3.497662356878827*^9, {
   3.497662464394216*^9, 3.497662468965024*^9}, 3.497662899853381*^9, {
   3.4990190901657534`*^9, 3.4990190901757536`*^9}, 3.499020260597392*^9, {
   3.569701527794991*^9, 3.569701549864253*^9}, {3.673470334807271*^9, 
   3.673470343827284*^9}, {3.673472101348009*^9, 3.6734721101550217`*^9}, {
   3.6734808382869225`*^9, 3.673480849636938*^9}, 3.6734809989872427`*^9, {
   3.673485355797007*^9, 3.6734853977560673`*^9}, 3.673485499780302*^9, {
   3.6735449135999613`*^9, 3.6735449901426964`*^9}, {3.673545154948387*^9, 
   3.673545192577654*^9}, {3.673546145558842*^9, 3.6735461464012437`*^9}, {
   3.6735716224641085`*^9, 3.673571622933135*^9}, 3.6740544424557676`*^9, 
   3.674054603219452*^9, 3.674055018803786*^9, 3.674055053564647*^9, {
   3.6740553582490807`*^9, 3.674055384241726*^9}, 3.6740561192246227`*^9, 
   3.6970871229204307`*^9, 3.7123366277464123`*^9, 3.715549064129834*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["N:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["u", "m"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Sin", "[", "v", "]"}]}]}], ")"}], "n"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{"u", "\[Equal]", 
       RowBox[{"c", "+", 
        RowBox[{"d", " ", "x"}]}]}], " ", "\[And]", " ", 
      RowBox[{"v", "\[Equal]", 
       RowBox[{"e", "+", 
        RowBox[{"f", " ", "x"}]}]}]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.519414342899901*^9, 3.519414474720132*^9}, {
   3.5197939535480833`*^9, 3.5197939539380836`*^9}, {3.5197940297698174`*^9, 
   3.5197940299726176`*^9}, 3.519795153580191*^9, {3.5200103027397947`*^9, 
   3.5200103044997973`*^9}, {3.5232186878169007`*^9, 
   3.5232186881569014`*^9}, {3.5232193955778913`*^9, 
   3.5232193955778913`*^9}, {3.5233166487845354`*^9, 
   3.5233166487845354`*^9}, {3.5233167010346084`*^9, 
   3.5233167010346084`*^9}, {3.523318546315711*^9, 3.523318573368556*^9}, {
   3.5239220709492664`*^9, 3.5239220924617043`*^9}, {3.5239221279205666`*^9, 
   3.5239221365629816`*^9}, {3.523930270899587*^9, 3.523930270899587*^9}, {
   3.5240761703528385`*^9, 3.5240761703528385`*^9}, {3.52407843124921*^9, 
   3.5240784332304134`*^9}, {3.5240784932749186`*^9, 
   3.5240784932749186`*^9}, {3.524079230095413*^9, 3.524079246553442*^9}, {
   3.5240858499762287`*^9, 3.524085860178646*^9}, {3.524085945261196*^9, 
   3.524085945261196*^9}, {3.5242763399632483`*^9, 3.5242763411488504`*^9}, {
   3.5242771575294847`*^9, 3.5242771578102846`*^9}, {3.530500224433988*^9, 
   3.530500225113989*^9}, {3.5313467876910577`*^9, 3.5313467883119507`*^9}, {
   3.5332231066826243`*^9, 3.5332231066826243`*^9}, {3.5332248881251183`*^9, 
   3.533224890245121*^9}, {3.5361011385491977`*^9, 3.5361011394332485`*^9}, {
   3.5363501469745007`*^9, 3.5363501506345057`*^9}, {3.5363617411167684`*^9, 
   3.5363617534067855`*^9}, {3.536366615151597*^9, 3.5363666230616083`*^9}, {
   3.5363667754518213`*^9, 3.5363667821318307`*^9}, {3.536366906722005*^9, 
   3.536366922022027*^9}, {3.536596861742076*^9, 3.5365968701504908`*^9}, {
   3.5366042542749715`*^9, 3.536604254462172*^9}, {3.536625554425806*^9, 
   3.536625554775807*^9}, {3.5366276426139326`*^9, 3.536627642853933*^9}, {
   3.536629402336396*^9, 3.536629402746397*^9}, {3.5366940603006477`*^9, 
   3.536694061273703*^9}, {3.5366943323932104`*^9, 3.536694332661226*^9}, {
   3.536694390476533*^9, 3.536694402176202*^9}, {3.5368634751022315`*^9, 
   3.5368634756170325`*^9}, {3.536980474148706*^9, 3.5369804925387316`*^9}, {
   3.5369807910591497`*^9, 3.5369808136991816`*^9}, 3.538443999546241*^9, {
   3.538444040229568*^9, 3.5384440801737804`*^9}, {3.544471201864182*^9, 
   3.5444712020241823`*^9}, {3.5499343621399236`*^9, 
   3.5499343628887253`*^9}, {3.5693429012648573`*^9, 3.569342923814889*^9}, {
   3.5693432071452856`*^9, 3.5693432074652863`*^9}, {3.569351915062778*^9, 
   3.569351927142795*^9}, {3.569352555713675*^9, 3.569352597773734*^9}, {
   3.5694315155137024`*^9, 3.569431516203704*^9}, {3.5748842843912826`*^9, 
   3.5748842879212875`*^9}, {3.5748843600113883`*^9, 3.574884366281397*^9}, 
   3.5748844907815714`*^9, {3.574884521101614*^9, 3.5748845214216146`*^9}, 
   3.590638001724437*^9, {3.673567804677744*^9, 3.673567804842753*^9}, 
   3.6739034525366917`*^9, 3.6739043270907135`*^9, {3.6739044139566813`*^9, 
   3.673904414164694*^9}, {3.6739044683787947`*^9, 3.673904474094121*^9}, {
   3.6739260862572947`*^9, 3.6739260862572947`*^9}, {3.673928215187522*^9, 
   3.673928219207527*^9}, 3.6739291909660025`*^9, {3.674056033088871*^9, 
   3.674056034071673*^9}, {3.67405609490118*^9, 3.6740560951507807`*^9}, {
   3.67444949857403*^9, 3.674449498774041*^9}, {3.69708634174675*^9, 
   3.69708634174675*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic normalization", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495840214754669*^9, {3.4958483177760134`*^9, 
   3.495848318886015*^9}, {3.495925911922002*^9, 3.495925920122013*^9}, 
   3.4961847242848682`*^9, 3.496184957525194*^9, 3.496188449500083*^9, 
   3.4961908979261436`*^9, 3.4961924998683863`*^9, 3.4961928754389124`*^9, {
   3.51849075797458*^9, 3.5184907698562593`*^9}, 3.574710542770027*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"u", "\[Equal]", 
    RowBox[{"c", "+", 
     RowBox[{"d", " ", "x"}]}]}], " ", "\[And]", " ", 
   RowBox[{"v", "\[Equal]", 
    RowBox[{"e", "+", 
     RowBox[{"f", " ", "x"}]}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.495402251391507*^9, 3.4954022711315346`*^9}, {
   3.495488783827441*^9, 3.4954888500775337`*^9}, {3.4954889799777155`*^9, 
   3.495489009627757*^9}, {3.495489141407942*^9, 3.495489151717956*^9}, {
   3.495489235178073*^9, 3.495489239268079*^9}, {3.495489386068284*^9, 
   3.4954894212383337`*^9}, {3.495489464438394*^9, 3.4954894647383947`*^9}, {
   3.495489500148444*^9, 3.4954895034984484`*^9}, {3.4954897331687703`*^9, 
   3.495489780118836*^9}, {3.495493913565876*^9, 3.495493935715907*^9}, {
   3.495494084919718*^9, 3.4954941083997507`*^9}, 3.495494511560315*^9, {
   3.495494580840412*^9, 3.4954945834404163`*^9}, {3.495494615970462*^9, 
   3.495494740200636*^9}, {3.495494880710832*^9, 3.4954948880508423`*^9}, {
   3.4954949819649754`*^9, 3.495494999445*^9}, {3.495495046515066*^9, 
   3.495495072875103*^9}, {3.4954951239351745`*^9, 3.4954951241651745`*^9}, {
   3.4954953673051157`*^9, 3.4954953726551237`*^9}, {3.495495450474448*^9, 
   3.495495453173253*^9}, {3.495495542140209*^9, 3.495495583792282*^9}, {
   3.4954957431465626`*^9, 3.4954957746118174`*^9}, {3.495495914419263*^9, 
   3.495495917804469*^9}, {3.495495955322535*^9, 3.4954960459586945`*^9}, {
   3.495496189588146*^9, 3.4954961923181515`*^9}, {3.4954973384365644`*^9, 
   3.495497357577798*^9}, {3.5240858715198665`*^9, 3.52408591925595*^9}, {
   3.5331536712917595`*^9, 3.5331536971617956`*^9}, {3.533223063022563*^9, 
   3.5332230658125668`*^9}, {3.533224894045127*^9, 3.5332248954551287`*^9}, 
   3.5363501685345306`*^9, {3.538444353705845*^9, 3.5384443676658645`*^9}, {
   3.5499343655595293`*^9, 3.549934366379531*^9}, {3.5693429326149015`*^9, 
   3.5693429326149015`*^9}, {3.5693520880530205`*^9, 
   3.5693520882530203`*^9}, {3.5693526036737423`*^9, 
   3.5693526036737423`*^9}, {3.5748843707814035`*^9, 
   3.5748843707814035`*^9}, {3.673926086267295*^9, 3.673926086267295*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox["u", "m"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Sin", "[", "v", "]"}]}]}], ")"}], "n"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", "+", 
          RowBox[{"d", " ", "x"}]}], ")"}], "m"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"e", "+", 
             RowBox[{"f", " ", "x"}]}], "]"}]}]}], ")"}], "n"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9, 
   3.495391696001576*^9, {3.495401987881138*^9, 3.49540199674115*^9}, {
   3.495402119591322*^9, 3.4954021482513623`*^9}, {3.4954887467773895`*^9, 
   3.4954887749874287`*^9}, 3.495488944397666*^9, 3.495489263778113*^9, 
   3.4954893636582527`*^9, 3.4954898177188883`*^9, 3.495489875358969*^9, 
   3.495493833545764*^9, 3.495493864175807*^9, 3.4954940303560395`*^9, 
   3.4954941516698112`*^9, 3.4954942700599775`*^9, 3.4954948473707857`*^9, {
   3.495495264965372*^9, 3.4954952782653904`*^9}, {3.4954956850364604`*^9, 
   3.4954957088577023`*^9}, {3.495495865341577*^9, 3.4954958884920177`*^9}, {
   3.495496084225561*^9, 3.4954961029143944`*^9}, {3.495496211459385*^9, 
   3.4954962213810024`*^9}, 3.495496440218187*^9, {3.495497026732417*^9, 
   3.4954970596328745`*^9}, {3.495497256957621*^9, 3.495497302338101*^9}, 
   3.533151648818928*^9, 3.5331516797189713`*^9, 3.533151717349024*^9, {
   3.5331518776292486`*^9, 3.533151970249378*^9}, {3.5331520176994443`*^9, 
   3.5331520227894516`*^9}, {3.533152054329496*^9, 3.5331520626995077`*^9}, 
   3.533152270349798*^9, {3.533153065130911*^9, 3.5331530971109557`*^9}, 
   3.53315335008131*^9, {3.5331535194015465`*^9, 3.5331535356615696`*^9}, 
   3.5331536017616625`*^9, {3.533221927890974*^9, 3.533221930830978*^9}, {
   3.533222264011444*^9, 3.533222283731472*^9}, {3.5332223304615374`*^9, 
   3.5332223353515444`*^9}, 3.5363501604045196`*^9, {3.536361767566806*^9, 
   3.5363617697768087`*^9}, {3.5363666287016163`*^9, 
   3.5363666313816195`*^9}, {3.536366784271834*^9, 3.5363667868618374`*^9}, {
   3.536366923782029*^9, 3.5363669254320316`*^9}, {3.5365968786057057`*^9, 
   3.536596881944112*^9}, {3.5366940930205193`*^9, 3.53669410440917*^9}, {
   3.5366942507975435`*^9, 3.536694251403578*^9}, {3.536694493325415*^9, 
   3.536694495295528*^9}, 3.536980387788585*^9, {3.5384441491255584`*^9, 
   3.538444158185571*^9}, 3.5384445157160716`*^9, {3.5693429405449123`*^9, 
   3.569342962434943*^9}, {3.5693520924330263`*^9, 3.5693520926030264`*^9}, {
   3.5693526191837635`*^9, 3.569352629573778*^9}, {3.5748843099713182`*^9, 
   3.574884350491375*^9}, {3.673904336743265*^9, 3.6739043383933597`*^9}, {
   3.6739044842887044`*^9, 3.6739044858837957`*^9}, 3.6739260862872944`*^9, {
   3.673928711498319*^9, 3.673928719760331*^9}, 3.6739290128677483`*^9, 
   3.6739291985120134`*^9, {3.6740560437612896`*^9, 3.6740560501105013`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"u_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Sin", "[", "v_", "]"}]}]}], ")"}], "^", "n_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"ExpandToSum", "[", 
        RowBox[{"u", ",", "x"}], "]"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Sin", "[", 
           RowBox[{"ExpandToSum", "[", 
            RowBox[{"v", ",", "x"}], "]"}], "]"}]}]}], ")"}], "^", "n"}]}], 
     ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "m", ",", "n"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"LinearQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"u", ",", "v"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"LinearMatchQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"u", ",", "v"}], "}"}], ",", "x"}], "]"}], 
     "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4954018196509027`*^9, {3.495401867050969*^9, 3.4954018672609687`*^9}, {
   3.4954022872215567`*^9, 3.4954022882115583`*^9}, 3.495488713187342*^9, 
   3.4954889210576334`*^9, 3.4954892270180616`*^9, 3.4954893399982195`*^9, {
   3.4954894833184204`*^9, 3.495489485938424*^9}, 3.4954897194087505`*^9, 
   3.495493755131653*^9, {3.4954938826158323`*^9, 3.495493884975836*^9}, 
   3.4954939962159915`*^9, {3.4954942766399865`*^9, 3.4954942945800114`*^9}, 
   3.4954948208307486`*^9, {3.495495087335123*^9, 3.495495087705124*^9}, 
   3.4954951805652537`*^9, 3.495495346275087*^9, 3.495495665489626*^9, 
   3.4954958533919563`*^9, {3.49549609483358*^9, 3.495496110792408*^9}, 
   3.4954961789333277`*^9, 3.495497173544275*^9, {3.495681286888199*^9, 
   3.4956812892482023`*^9}, {3.5240859566180162`*^9, 3.52408598201486*^9}, {
   3.524086057533393*^9, 3.524086058937395*^9}, {3.5242757161181526`*^9, 
   3.5242757216717625`*^9}, {3.5242763445964565`*^9, 
   3.5242763477320623`*^9}, {3.5331525961202545`*^9, 3.533152618700286*^9}, {
   3.5331527018704023`*^9, 3.5331528058905478`*^9}, {3.533153282981216*^9, 
   3.5331533342812877`*^9}, {3.533153565251611*^9, 3.533153599281659*^9}, {
   3.5332224159616575`*^9, 3.533222435081684*^9}, {3.5332224656717267`*^9, 
   3.533222494301767*^9}, {3.533223281652869*^9, 3.53322331799292*^9}, {
   3.5332234651831264`*^9, 3.5332234684731307`*^9}, {3.533223854473671*^9, 
   3.5332238609936805`*^9}, {3.5332239572838154`*^9, 3.5332239599938188`*^9}, 
   3.533224847425061*^9, {3.5332249144151554`*^9, 3.533224915905157*^9}, 
   3.533246982034763*^9, 3.5332605459462523`*^9, {3.536350185774555*^9, 
   3.536350207334585*^9}, {3.5363506584052167`*^9, 3.5363506914352627`*^9}, {
   3.5363508662655077`*^9, 3.5363509090255675`*^9}, {3.5363510097557087`*^9, 
   3.5363510569557743`*^9}, {3.5363512834660916`*^9, 3.536351309536128*^9}, {
   3.5363515550764723`*^9, 3.5363516176765594`*^9}, {3.5363516722566357`*^9, 
   3.5363516724366364`*^9}, {3.536356352083194*^9, 3.536356353383196*^9}, {
   3.5363617881968346`*^9, 3.536361833056897*^9}, {3.536366667801671*^9, 
   3.5363667247217503`*^9}, {3.5363667904918423`*^9, 3.536366799971856*^9}, {
   3.536366941382054*^9, 3.536366980882109*^9}, {3.5365968943773336`*^9, 
   3.536596936123007*^9}, {3.536596976558278*^9, 3.536597025589164*^9}, 
   3.536602461258152*^9, {3.5366940777176437`*^9, 3.5366940881722417`*^9}, 
   3.5366943020244737`*^9, {3.536694516327731*^9, 3.5366945346767807`*^9}, {
   3.5369801281282215`*^9, 3.5369801381582355`*^9}, 3.536980329338503*^9, {
   3.53698041236862*^9, 3.5369804166186256`*^9}, {3.5369807322990675`*^9, 
   3.536980746969088*^9}, 3.538444106556738*^9, {3.5384444438259706`*^9, 
   3.5384444863560305`*^9}, 3.544471282097495*^9, {3.549934369376335*^9, 
   3.549934370546336*^9}, {3.555274643817338*^9, 3.555274658697359*^9}, {
   3.5693429690149527`*^9, 3.569343004485002*^9}, {3.569343115935158*^9, 
   3.5693431274951744`*^9}, {3.5693438869262376`*^9, 
   3.5693438923862453`*^9}, {3.5693452399481316`*^9, 
   3.5693452412481337`*^9}, {3.5693495213494267`*^9, 
   3.5693495533094716`*^9}, {3.5693499264999943`*^9, 3.569349931960002*^9}, {
   3.569351944542819*^9, 3.5693519905128837`*^9}, {3.569352647183803*^9, 
   3.5693527140438967`*^9}, {3.57488438244142*^9, 3.5748844576015253`*^9}, {
   3.6739043440206814`*^9, 3.6739043640248256`*^9}, {3.673904481345536*^9, 
   3.673904482711614*^9}, {3.673928282864618*^9, 3.67392830562665*^9}, 
   3.6739290389327855`*^9, 3.673929208992028*^9, {3.673929815862994*^9, 
   3.6739298244530067`*^9}, {3.674056056958913*^9, 3.6740560833883595`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"u_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Cos", "[", "v_", "]"}]}]}], ")"}], "^", "n_."}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"ExpandToSum", "[", 
        RowBox[{"u", ",", "x"}], "]"}], "^", "m"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Cos", "[", 
           RowBox[{"ExpandToSum", "[", 
            RowBox[{"v", ",", "x"}], "]"}], "]"}]}]}], ")"}], "^", "n"}]}], 
     ",", "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "m", ",", "n"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"LinearQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"u", ",", "v"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"LinearMatchQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"u", ",", "v"}], "}"}], ",", "x"}], "]"}], 
     "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4954018196509027`*^9, {3.495401867050969*^9, 3.4954018672609687`*^9}, {
   3.4954022872215567`*^9, 3.4954022882115583`*^9}, 3.495488713187342*^9, 
   3.4954889210576334`*^9, 3.4954892270180616`*^9, 3.4954893399982195`*^9, {
   3.4954894833184204`*^9, 3.495489485938424*^9}, 3.4954897194087505`*^9, 
   3.495493755131653*^9, {3.4954938826158323`*^9, 3.495493884975836*^9}, 
   3.4954939962159915`*^9, {3.4954942766399865`*^9, 3.4954942945800114`*^9}, 
   3.4954948208307486`*^9, {3.495495087335123*^9, 3.495495087705124*^9}, 
   3.4954951805652537`*^9, 3.495495346275087*^9, 3.495495665489626*^9, 
   3.4954958533919563`*^9, {3.49549609483358*^9, 3.495496110792408*^9}, 
   3.4954961789333277`*^9, 3.495497173544275*^9, {3.495681286888199*^9, 
   3.4956812892482023`*^9}, {3.5240859566180162`*^9, 3.52408598201486*^9}, {
   3.524086057533393*^9, 3.524086058937395*^9}, {3.5242757161181526`*^9, 
   3.5242757216717625`*^9}, {3.5242763445964565`*^9, 
   3.5242763477320623`*^9}, {3.5331525961202545`*^9, 3.533152618700286*^9}, {
   3.5331527018704023`*^9, 3.5331528058905478`*^9}, {3.533153282981216*^9, 
   3.5331533342812877`*^9}, {3.533153565251611*^9, 3.533153599281659*^9}, {
   3.5332224159616575`*^9, 3.533222435081684*^9}, {3.5332224656717267`*^9, 
   3.533222494301767*^9}, {3.533223281652869*^9, 3.53322331799292*^9}, {
   3.5332234651831264`*^9, 3.5332234684731307`*^9}, {3.533223854473671*^9, 
   3.5332238609936805`*^9}, {3.5332239572838154`*^9, 3.5332239599938188`*^9}, 
   3.533224847425061*^9, {3.5332249144151554`*^9, 3.533224915905157*^9}, 
   3.533246982034763*^9, 3.5332605459462523`*^9, {3.536350185774555*^9, 
   3.536350207334585*^9}, {3.5363506584052167`*^9, 3.5363506914352627`*^9}, {
   3.5363508662655077`*^9, 3.5363509090255675`*^9}, {3.5363510097557087`*^9, 
   3.5363510569557743`*^9}, {3.5363512834660916`*^9, 3.536351309536128*^9}, {
   3.5363515550764723`*^9, 3.5363516176765594`*^9}, {3.5363516722566357`*^9, 
   3.5363516724366364`*^9}, {3.536356352083194*^9, 3.536356353383196*^9}, {
   3.5363617881968346`*^9, 3.536361833056897*^9}, {3.536366667801671*^9, 
   3.5363667247217503`*^9}, {3.5363667904918423`*^9, 3.536366799971856*^9}, {
   3.536366941382054*^9, 3.536366980882109*^9}, {3.5365968943773336`*^9, 
   3.536596936123007*^9}, {3.536596976558278*^9, 3.536597025589164*^9}, 
   3.536602461258152*^9, {3.5366940777176437`*^9, 3.5366940881722417`*^9}, 
   3.5366943020244737`*^9, {3.536694516327731*^9, 3.5366945346767807`*^9}, {
   3.5369801281282215`*^9, 3.5369801381582355`*^9}, 3.536980329338503*^9, {
   3.53698041236862*^9, 3.5369804166186256`*^9}, {3.5369807322990675`*^9, 
   3.536980746969088*^9}, 3.538444106556738*^9, {3.5384444438259706`*^9, 
   3.5384444863560305`*^9}, 3.544471282097495*^9, {3.549934369376335*^9, 
   3.549934370546336*^9}, {3.555274643817338*^9, 3.555274658697359*^9}, {
   3.5693429690149527`*^9, 3.569343004485002*^9}, {3.569343115935158*^9, 
   3.5693431274951744`*^9}, {3.5693438869262376`*^9, 
   3.5693438923862453`*^9}, {3.5693452399481316`*^9, 
   3.5693452412481337`*^9}, {3.5693495213494267`*^9, 
   3.5693495533094716`*^9}, {3.5693499264999943`*^9, 3.569349931960002*^9}, {
   3.569351944542819*^9, 3.5693519905128837`*^9}, {3.569352647183803*^9, 
   3.5693527140438967`*^9}, {3.57488438244142*^9, 3.5748844576015253`*^9}, {
   3.6739043440206814`*^9, 3.673904397521742*^9}, {3.673904488535947*^9, 
   3.673904493736245*^9}, {3.6739282967146373`*^9, 3.6739283097866554`*^9}, 
   3.6739290389427853`*^9, 3.6739292116020317`*^9, {3.67392982706301*^9, 
   3.67392983417302*^9}, {3.674056070783538*^9, 3.6740560805647545`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{
  3.4796643211106243`*^9, {3.536351324436149*^9, 3.536351326496152*^9}, {
   3.5363515481064625`*^9, 3.536351548866463*^9}}]
}, Closed]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1908, 946},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{1, 32000},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ", 
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[{
     "Rules", " ", "for", " ", "integrands", " ", "of", " ", "the", " ", 
      "form", " ", "(", "c", "+", "d", " ", "x", ")", "^", "m", " ", "(", "a",
       "+", "b", " ", "sin", "(", "e", "+", "f", " ", "x", ")", ")", "^", 
      "n"}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->False,
"FirstPageHeader"->False,
"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{783., 601.8},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->28.8},
Magnification->1.399999976158142,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 2410, 46, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[2980, 70, 3445, 58, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[6450, 132, 3709, 66, 74, "Subsubtitle"],
Cell[CellGroupData[{
Cell[10184, 202, 3117, 53, 74, "Subsubtitle"],
Cell[CellGroupData[{
Cell[13326, 259, 3874, 67, 74, "Subsubtitle"],
Cell[17203, 328, 249, 4, 48, "Subsubsection"],
Cell[17455, 334, 273, 4, 34, "Subsubsection"],
Cell[17731, 340, 250, 4, 34, "Subsubsection"],
Cell[17984, 346, 927, 23, 51, "Subsubsection"],
Cell[18914, 371, 1148, 20, 36, "Subsubsection"],
Cell[20065, 393, 2440, 57, 85, "Subsubtitle"],
Cell[22508, 452, 771, 11, 48, "Subsubsection"],
Cell[23282, 465, 2294, 61, 180, "Code"],
Cell[25579, 528, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[25705, 535, 3733, 66, 74, "Subsubtitle"],
Cell[29441, 603, 273, 4, 48, "Subsubsection"],
Cell[29717, 609, 349, 5, 34, "Subsubsection"],
Cell[30069, 616, 372, 5, 34, "Subsubsection"],
Cell[30444, 623, 1273, 22, 36, "Subsubsection"],
Cell[31720, 647, 2558, 62, 92, "Subsubtitle"],
Cell[34281, 711, 771, 11, 48, "Subsubsection"],
Cell[35055, 724, 2609, 71, 180, "Code"],
Cell[37667, 797, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[37793, 804, 3092, 52, 83, "Subsubtitle"],
Cell[CellGroupData[{
Cell[40910, 860, 2891, 57, 83, "Subsubtitle"],
Cell[43804, 919, 194, 3, 48, "Subsubsection"],
Cell[44001, 924, 719, 15, 36, "Subsubsection"],
Cell[44723, 941, 1172, 28, 36, "Subsubsection"],
Cell[45898, 971, 1383, 25, 36, "Subsubsection"],
Cell[47284, 998, 1405, 31, 83, "Subsubtitle"],
Cell[48692, 1031, 1354, 30, 83, "Subsubtitle"],
Cell[50049, 1063, 771, 11, 48, "Subsubsection"],
Cell[50823, 1076, 1952, 47, 145, "Code"],
Cell[52778, 1125, 1570, 38, 159, "Code"],
Cell[54351, 1165, 2734, 62, 159, "Code"],
Cell[57088, 1229, 2442, 55, 159, "Code"],
Cell[59533, 1286, 2013, 47, 159, "Code"],
Cell[61549, 1335, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[61675, 1342, 3139, 60, 83, "Subsubtitle"],
Cell[64817, 1404, 223, 3, 48, "Subsubsection"],
Cell[65043, 1409, 1299, 37, 54, "Subsubsection"],
Cell[66345, 1448, 1332, 24, 36, "Subsubsection"],
Cell[67680, 1474, 2659, 65, 113, "Subsubtitle"],
Cell[70342, 1541, 771, 11, 48, "Subsubsection"],
Cell[71116, 1554, 2714, 75, 180, "Code"],
Cell[73833, 1631, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[73971, 1639, 3177, 54, 92, "Subsubtitle"],
Cell[CellGroupData[{
Cell[77173, 1697, 3626, 67, 92, "Subsubtitle"],
Cell[80802, 1766, 281, 4, 48, "Subsubsection"],
Cell[81086, 1772, 1846, 50, 64, "Subsubsection"],
Cell[82935, 1824, 1383, 25, 36, "Subsubsection"],
Cell[84321, 1851, 2279, 47, 97, "Subsubtitle"],
Cell[86603, 1900, 771, 11, 48, "Subsubsection"],
Cell[87377, 1913, 2589, 59, 145, "Code"],
Cell[89969, 1974, 2345, 55, 159, "Code"],
Cell[92317, 2031, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[92443, 2038, 3132, 60, 92, "Subsubtitle"],
Cell[95578, 2100, 223, 3, 48, "Subsubsection"],
Cell[95804, 2105, 1299, 37, 54, "Subsubsection"],
Cell[97106, 2144, 1332, 24, 36, "Subsubsection"],
Cell[98441, 2170, 2763, 69, 113, "Subsubtitle"],
Cell[101207, 2241, 771, 11, 48, "Subsubsection"],
Cell[101981, 2254, 2890, 77, 180, "Code"],
Cell[104874, 2333, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[105012, 2341, 3476, 58, 74, "Subsubtitle"],
Cell[108491, 2401, 295, 4, 48, "Subsubsection"],
Cell[108789, 2407, 843, 21, 51, "Subsubsection"],
Cell[109635, 2430, 889, 22, 51, "Subsubsection"],
Cell[110527, 2454, 1151, 16, 34, "Subsubsection"],
Cell[111681, 2472, 2639, 62, 83, "Subsubtitle"],
Cell[114323, 2536, 771, 11, 48, "Subsubsection"],
Cell[115097, 2549, 2875, 77, 145, "Code"],
Cell[117975, 2628, 2504, 66, 159, "Code"],
Cell[120482, 2696, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[120620, 2704, 3655, 66, 74, "Subsubtitle"],
Cell[CellGroupData[{
Cell[124300, 2774, 4024, 66, 74, "Subsubtitle"],
Cell[128327, 2842, 1637, 23, 48, "Subsubsection"],
Cell[129967, 2867, 2018, 36, 51, "Subsubsection"],
Cell[131988, 2905, 1380, 19, 34, "Subsubsection"],
Cell[133371, 2926, 3253, 67, 82, "Subsubtitle"],
Cell[136627, 2995, 771, 11, 48, "Subsubsection"],
Cell[137401, 3008, 2872, 66, 145, "Code"],
Cell[140276, 3076, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[140402, 3083, 3883, 70, 74, "Subsubtitle"],
Cell[CellGroupData[{
Cell[144310, 3157, 4035, 68, 74, "Subsubtitle"],
Cell[148348, 3227, 633, 12, 50, "Subsubsection"],
Cell[148984, 3241, 652, 14, 36, "Subsubsection"],
Cell[149639, 3257, 1403, 23, 36, "Subsubsection"],
Cell[151045, 3282, 3608, 87, 159, "Subsubtitle"],
Cell[154656, 3371, 771, 11, 48, "Subsubsection"],
Cell[155430, 3384, 3595, 93, 215, "Code"],
Cell[159028, 3479, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[159154, 3486, 4110, 71, 74, "Subsubtitle"],
Cell[163267, 3559, 282, 4, 48, "Subsubsection"],
Cell[163552, 3565, 334, 5, 34, "Subsubsection"],
Cell[163889, 3572, 1568, 27, 36, "Subsubsection"],
Cell[165460, 3601, 4421, 117, 246, "Subsubtitle"],
Cell[169884, 3720, 771, 11, 48, "Subsubsection"],
Cell[170658, 3733, 4671, 129, 250, "Code"],
Cell[175332, 3864, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[175470, 3872, 3966, 71, 74, "Subsubtitle"],
Cell[CellGroupData[{
Cell[179461, 3947, 4516, 77, 74, "Subsubtitle"],
Cell[183980, 4026, 1694, 23, 48, "Subsubsection"],
Cell[185677, 4051, 1693, 29, 36, "Subsubsection"],
Cell[187373, 4082, 2406, 49, 74, "Subsubtitle"],
Cell[189782, 4133, 771, 11, 48, "Subsubsection"],
Cell[190556, 4146, 3208, 70, 145, "Code"],
Cell[193767, 4218, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[193893, 4225, 4372, 75, 74, "Subsubtitle"],
Cell[198268, 4302, 1669, 23, 48, "Subsubsection"],
Cell[199940, 4327, 1709, 30, 36, "Subsubsection"],
Cell[201652, 4359, 3332, 78, 92, "Subsubtitle"],
Cell[204987, 4439, 771, 11, 48, "Subsubsection"],
Cell[205761, 4452, 4121, 99, 180, "Code"],
Cell[209885, 4553, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[210011, 4560, 4295, 75, 74, "Subsubtitle"],
Cell[214309, 4637, 388, 6, 48, "Subsubsection"],
Cell[214700, 4645, 434, 6, 34, "Subsubsection"],
Cell[215137, 4653, 1797, 31, 36, "Subsubsection"],
Cell[216937, 4686, 5023, 135, 251, "Subsubtitle"],
Cell[221963, 4823, 771, 11, 48, "Subsubsection"],
Cell[222737, 4836, 5378, 152, 250, "Code"],
Cell[228118, 4990, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[228280, 5000, 3454, 63, 74, "Subsubtitle"],
Cell[CellGroupData[{
Cell[231759, 5067, 3971, 70, 74, "Subsubtitle"],
Cell[235733, 5139, 712, 13, 50, "Subsubsection"],
Cell[236448, 5154, 724, 15, 36, "Subsubsection"],
Cell[237175, 5171, 1520, 27, 36, "Subsubsection"],
Cell[238698, 5200, 3813, 95, 162, "Subsubtitle"],
Cell[242514, 5297, 771, 11, 48, "Subsubsection"],
Cell[243288, 5310, 4009, 108, 215, "Code"],
Cell[247300, 5420, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[247426, 5427, 4009, 71, 74, "Subsubtitle"],
Cell[251438, 5500, 360, 5, 48, "Subsubsection"],
Cell[251801, 5507, 390, 6, 34, "Subsubsection"],
Cell[252194, 5515, 1563, 28, 36, "Subsubsection"],
Cell[253760, 5545, 4813, 130, 251, "Subsubtitle"],
Cell[258576, 5677, 771, 11, 48, "Subsubsection"],
Cell[259350, 5690, 5303, 150, 250, "Code"],
Cell[264656, 5842, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[264806, 5851, 5441, 95, 53, "Subsubtitle"],
Cell[270250, 5948, 405, 6, 48, "Subsubsection"],
Cell[270658, 5956, 2165, 39, 51, "Subsubsection"],
Cell[272826, 5997, 3028, 62, 74, "Subsubtitle"],
Cell[275857, 6061, 771, 11, 48, "Subsubsection"],
Cell[276631, 6074, 3852, 84, 145, "Code"],
Cell[280486, 6160, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[280612, 6167, 5589, 99, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[286226, 6270, 5800, 101, 74, "Subsubtitle"],
Cell[292029, 6373, 349, 5, 48, "Subsubsection"],
Cell[292381, 6380, 1302, 36, 57, "Subsubsection"],
Cell[293686, 6418, 1807, 34, 48, "Subsubsection"],
Cell[295496, 6454, 2143, 55, 83, "Subsubtitle"],
Cell[297642, 6511, 771, 11, 48, "Subsubsection"],
Cell[298416, 6524, 3003, 78, 145, "Code"],
Cell[301422, 6604, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[301548, 6611, 5788, 102, 74, "Subsubtitle"],
Cell[307339, 6715, 435, 6, 48, "Subsubsection"],
Cell[307777, 6723, 1807, 46, 71, "Subsubsection"],
Cell[309587, 6771, 1691, 34, 54, "Subsubsection"],
Cell[311281, 6807, 3446, 82, 116, "Subsubtitle"],
Cell[314730, 6891, 771, 11, 48, "Subsubsection"],
Cell[315504, 6904, 4023, 105, 180, "Code"],
Cell[319530, 7011, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[319656, 7018, 5748, 100, 74, "Subsubtitle"],
Cell[325407, 7120, 349, 5, 48, "Subsubsection"],
Cell[325759, 7127, 1021, 29, 57, "Subsubsection"],
Cell[326783, 7158, 1699, 32, 48, "Subsubsection"],
Cell[328485, 7192, 2117, 54, 83, "Subsubtitle"],
Cell[330605, 7248, 771, 11, 48, "Subsubsection"],
Cell[331379, 7261, 3105, 79, 145, "Code"],
Cell[334487, 7342, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[334613, 7349, 5838, 102, 74, "Subsubtitle"],
Cell[340454, 7453, 435, 6, 48, "Subsubsection"],
Cell[340892, 7461, 1761, 46, 71, "Subsubsection"],
Cell[342656, 7509, 1691, 34, 54, "Subsubsection"],
Cell[344350, 7545, 3529, 87, 116, "Subsubtitle"],
Cell[347882, 7634, 771, 11, 48, "Subsubsection"],
Cell[348656, 7647, 4290, 111, 180, "Code"],
Cell[352949, 7760, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[353087, 7768, 5755, 99, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[358867, 7871, 5587, 95, 89, "Subsubtitle"],
Cell[364457, 7968, 401, 6, 48, "Subsubsection"],
Cell[364861, 7976, 2147, 49, 64, "Subsubsection"],
Cell[367011, 8027, 1569, 33, 64, "Subsubsection"],
Cell[368583, 8062, 1617, 29, 48, "Subsubsection"],
Cell[370203, 8093, 3052, 67, 93, "Subsubtitle"],
Cell[373258, 8162, 2961, 66, 93, "Subsubtitle"],
Cell[376222, 8230, 771, 11, 48, "Subsubsection"],
Cell[376996, 8243, 4975, 117, 145, "Code"],
Cell[381974, 8362, 4266, 102, 159, "Code"],
Cell[386243, 8466, 4300, 96, 159, "Code"],
Cell[390546, 8564, 3642, 85, 159, "Code"],
Cell[394191, 8651, 3899, 92, 159, "Code"],
Cell[398093, 8745, 3347, 82, 159, "Code"],
Cell[401443, 8829, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[401569, 8836, 5623, 97, 90, "Subsubtitle"],
Cell[407195, 8935, 1471, 27, 62, "Subsubsection"],
Cell[408669, 8964, 4313, 110, 99, "Subsubtitle"],
Cell[412985, 9076, 771, 11, 48, "Subsubsection"],
Cell[413759, 9089, 4444, 120, 215, "Code"],
Cell[418206, 9211, 89, 2, 48, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[418332, 9218, 5910, 101, 74, "Subsubtitle"],
Cell[424245, 9321, 1703, 32, 62, "Subsubsection"],
Cell[425951, 9355, 5498, 149, 258, "Subsubtitle"],
Cell[431452, 9506, 771, 11, 48, "Subsubsection"],
Cell[432226, 9519, 6010, 169, 250, "Code"],
Cell[438239, 9690, 89, 2, 48, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[438377, 9698, 5287, 83, 53, "Subsubtitle"],
Cell[443667, 9783, 1341, 18, 35, "Subsubsection"],
Cell[445011, 9803, 2613, 55, 53, "Subsubtitle"],
Cell[447627, 9860, 771, 11, 35, "Subsubsection"],
Cell[448401, 9873, 2424, 56, 104, "Code"],
Cell[450828, 9931, 89, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[450954, 9938, 5751, 96, 53, "Subsubtitle"],
Cell[456708, 10036, 448, 6, 48, "Subsubsection"],
Cell[457159, 10044, 2809, 46, 36, "Subsubsection"],
Cell[459971, 10092, 3535, 64, 74, "Subsubtitle"],
Cell[463509, 10158, 771, 11, 48, "Subsubsection"],
Cell[464283, 10171, 5054, 94, 145, "Code"],
Cell[469340, 10267, 5055, 94, 159, "Code"],
Cell[474398, 10363, 190, 4, 48, "Subsubsection"]
}, Closed]]
}
]
*)

(* End of internal cache information *)